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CP/M System Alteration Guide 



1. rMTRODUCTION 



The standard CP/M system assumes operation on an Intel MDS microcomputer 
development system, but is designed so that the user can alter a specific set 
of subroutines vhich define the hardware operating environment. In this way, 
the user can produce a diskette which operates ^vith a non-standard (but 
IBMr-compatible format) drive controller and/or peripheral devices. 

In order to achieve device independence, CP/M is separated into three 
distinct rrodules: 

BIOS - Basic I/O System which is environment dependent 

BDOS - Basic Disk Operating System which is not dependent upon 

the hardware configuration 
CCP - the Console Command Processor which uses the BDOS 

Of these modules, only the BIOS is dependent upon the particular hardware. 
That is, the user can "patch" the distribution version of CP/M to provide a 
new BIOS which provides a customized interface beb^^en the remaining CP/M 
modules and the user's own hardware system. The purpose of this docum.ent is 
to provide a step-by-step procedure for patching the new BIOS into CP/M. 

The new BIOS requires some relatively simple software development and 
testing; the current BIOS, however, is listed in Appendix C, and can be used 
as a model for the customized package. A skeletal version of the BIOS is 
given in Appendix D which can form the base for a modified BIOS. In addition 
to the BIOS, the user must write a simple memory loader, called GETSYS, which 
brings the operating system into memory. In order to patch the new BIOS into 
CP/M, the user must write the reverse of GETSYS, called POTSYS, which places 
an altered version of CP/M back onto the diskette. POTSYS is usually derived 
from GETSYS by changing the disk read commands into disk write commands. 
Sample skeletal GETSYS and POTSYS programs are described in Section 3, and 
listed in Appendix E. In order to make the CP/M system work automatically, 
the user must also supply a cold start loader, sLmilar to the one provided 
with CP/M (listed in Appendices A and B) . A skeletal form of a cold start 
loader is given in Appendix F which can serve as a model for your loader. 



2. FIRST LEVEL SYSTEM REGENERATION 

The procedure to follow to patch the CP/M system is given below in several 
steps. Address references in each step are followed by an "H" to denote the 
hexadecimal radix, and are given for a 16K CP/M system. For larger CP/M 
systems, add a "bias" to each address v^ich is shown with a "-rb" following it, 
where b is equal to the niemory size minus 16K. Values for b in various 
standard memory sizes are 



24K 
32K 
40K 
48K 
56K 
62K 
64K 



b = 24K - 16K = 8K = 02000H 

b = 32K - 16K = 16K = 04000H 

b = 40K - 16K = 24K = 06000H 

b = 48K - 16K = 32K = 08000H 

b = 56K ^ 16K = 40K = 0A000H 

b = 62K - 16K = 46K = 0B800H 

b = 64K - 16K = 48K = 0C000H 



Note: The standard distribution version of CP/M is configured as a 16K 
system. Therefore, you must first bring up the 16K CP/M system, and then 
configure it for your actual memory size (see Second Level System Generation) . 

(1) Review Section 4 and write a GETSYS program which reads the first two 
tracks of a diskette into nemory. The data from the diskette miust begin at 
location 2880H. Code GETSYS so that it starts at location 100H (base of the 
TPA) , as shown in the first part of Appendix E. 

(2) Test the GETSYS program by reading a blank diskette into memory, and 
check to see that the data has been read properly, and that the diskette has 
not been altered in any way by the GETSYS program^. 

(3) Run the GETSYS program using an initialized CP/M diskette to see if 
GETSYS loads CP/M starting at 2880H (the operating system actually starts 128 
bytes later at 2900H) . 

(4) Review Section 4 and write the PL^SYS program which writes memory 
starting at 2880H back onto the first two tracks of the diskette. The PUTSYS 
program should be located at 200H, as shown in the second part of Appendix E. 

(5) Test the POTSYS program using a blank uninitialized diskette by 
writing a portion of memory to the first tv/o tracks; clear memory and read it 
bacK using CSTSYS. Test PUPSYS canpletely, since this program will be used to 
alter CP/M on disk, 

(6) Study Sections 5, 6, and 7, along with the distribution version of 
the 31 OS given in Appendix C, and write a simple version which perform.s a 
similar function for the customized environment. Use the program given in 
Appendix D as a model. Call this new BIOS by the name CBIOS (customized 
BIOS). Implement only the primitive disk operations on a single drive, and 



simple console input/output finctions in this phase. 

(7) Test CBIOS completely to ensure tnat it properly };:erforms console 
character I/O and disk reads and ^vrites. 3e especially careful to ensure tnat 
no disk ^<^^:ite operations occur accidently during read operations, and check 
that the proper track and sectors are addressed on all reads and writes. 
Failure to make these checks may cause destruction of the initialized C?/M 
system after it is patched. 

(8) Referring to Figure 1 in Section 5, note that the BIOS is located 
between locations 3E00H and 3FFPH. Read the CP/M system using C^ITSYS, and 
replace the BIOS segment by the new CBIOS developed in step (6) and tested in 
step (7). This replacenent is done in the memory of the machine and will be 
placed on the diskette in the next step. 

(9) Use PUTSYS to place the patched memory image of CP/M onto the first 
two tracks of a blank diskette for testing. 

(10) Use GETSYS to bring the copied memory image from the test diskette 
back into memory at 2880H, and check to ensure that it has loaded back 
properly (clear memory, if possible, before the load). Upon successful load, 
branch to the cold start code at location 3E00H. The cold start routine will 
initialize page zero, then jump to the CCP (location 2900H) which will call 
the BDOS, which will call the CBIOS. The CBIOS will be asked to read several 
sectors on track 2 twice in succession, and, if successful, CP/M will type 
*'A>". 

When you make it this far, you are almost on the air. If you have trouble, 
use v^hatever debug facilities you have available to trace and breakiooint your 
CBIOS. 

(11) Upon ccmpletion of step (10) , CP/M has prompted the console for a 
command input. Test the disk write operation by typing 

SAVE 1 X.OOM 

(recall that all commands must be followed by a carriage return) . CP/M should 
respond with another prompt (after several disk accesses) : 

A> 
If it does not, debug your disk write functions and try again. 

(12) Test the directory ccmmand by typing 

DIR 
CP/M should respond with 

A: X OOM 



(13) Test the erase command by typing 

ERA X.OOM 

CP/K should respond with the A pranpt. When you make it this far, you should 
have an operational system v^ich will only require a bootstrap loader to 
function completely. 

(14) Write a bootstrap loader which is similar to GETSYS, and place it 
on track 0, sector 1 using PUTSYS (again using the test diskette, not the 
distribution diskette) . See Sections 5 and 8 for more information on the 
bootstrap operation. 

(15) Retest the new test diskette with the bootstrap loader installed by 
executing steps (11), (12), and (13). Upon completion of these tests, type a 
control-C (control and C keys sim^ultaneously) . The system should then execute 
a "warm start" which reboots the system and types the A> prompt. 

(16) At this point, you probably have a good version of your customized 
CP/M system on your test diskette. Use GET3YS to load CP/M fron your test 
diskette. Remove the test diskette, place the distribution diskette (or a 
legal copy) into the drive, and use PUTSYS to replace the distribution version 
by your customized version. Do not irake this replacement if you are unsure of 
your patch since this step destroys the system which was sent to you from 
Digital Research. 

(17) Load your modified CP/M system., and test it by typing 

DIR 

CP/M should respond with a list of files v^ich are provided on the initialized 
diskette. One such file should be the memory image for the debugaer, called 
DDT.ODM. 

NOTE: from now on, it is Important that you always reboot 
the CP/M system if a diskette is ronoved and replaced 
by another diskette, unless the new diskette is to be 
read only. 

(IS) Load and test the debugger by typing 

DDT 

(see the docu^ment "CP/M I>^Tiamic Debugging Tool (DDT) " for operating 
information and examples). Take tim.e to familiarize yourself with DDT; it 
will be your best friend in later steps. 

(19) Before making further CEIOS modifications, practice using the editor 
(see the ED user's guide), and assembler (see the ASM user's guide). Then 



recede and test the GETSYS, POTSYS, and C3I0S programs using SD, AS4, and 
DDT. Code and test a OOPY program which does a sector-to-sector copy from one 
diskette to another to obtain back-up copies of the original diskette (NOTE: 
read your CP/M Licensing Agreement; it specifies your legal responsibilities 
when copying the CP/M system) . Place the copyright notice 

Copyright (c) 1978 
Digital Research 

on each copy ^Ahich is made with your COPY program. 

(20) Modify your CBIOS to include the extra functions for punches, 
readers, signon messages, and so-forth, and add the facilities for additional 
drives, if they exists on your system. You can make these changes v/ith the 

GETSYS and PUTSYS programs vAiich you have developed, or you can refer to the 
following section, vhich outlines CP/M facilities which will aid you in the 
regeneration process. 

You now h3s/e a good copy of the customized CP/M system. Note txhat 
although the CBIOS portion of CP/M which you have developed belongs to you, 
the modified version of CP/M '//hich you have created can be copied fc>r your use 
only (again, read your Licensing Agreement) and cannot be legally copied for 
anyone else's use. 

It should be noted that your system remains file-compatible with all other 
CP/M systems, which allows transfer of non-procrietary software between users 
of CP/M. 



3. SECOND LEVEL SYSTEM GENERATION 

Now that you have the CP/M system running, you will want to configure CP/M 
for your memory size. In general, you will first get a memory image of CP/M 
with the "MOVCPM" program (system relocator) and place this memory image onto 
a named disk file* The disk file can then be loaded, examined, patched, and 
replaced using the editor, assembler, debugger, and systar. generation program. 
For further details on the operation of these programs, see the "Guide to CP/M 
Features and Facilities" manual. 

To get the memory image of CP/M into the TPA configured for the desired 
memory size, give the command: 

MOVCPM XX * 

where "xx" is the memory size in decimal K bytes (e.g., 32 for 32K) . The 
response will be: 

OONSTRJCTING xxK CP/M VERS 1.4 
READY PDR "SYSGEN" OR 
"SAVE 32 CPMxx.OOM" 

At this tDoint, the image of CP/M in the TPA is configured for the desired 
memory size. The memory image is at location 0900H through 207FH (i.e., the 
BOOT is at 0900H, the CCP is at 980H, and the BIOS is at 1E80H) . Note that 
the mem.ory image has the standard MDS-800 BIOS and BOOT on it. It is now 
necessary to save the memory image in a file so that you can patch your CBIOS 
and CBOOI into it: 

SAVE 32 CPKixx.COM Save 20K = 32 pages of memory 

The memory image created by the "MOVCPM" program is offset by a negative bias 
so that it loads into the free area of the TPA, and thus does not interfere 
with the operation of CP/M in higher memory. This memory image can be 
subsequently loaded under DDT and examined or changed in preparation for a new 
generation of the system. DDI is loaded with the memory image by typing: 

DET CPMxx.CDM Load DDT, then read the CPM image 

DDT should resDond with 

NEXT PC 
2100 0100 

You can then use the display (D) and disassembly (L) commands to examine 
portions of the mem^ory imaqe between 900H and 207FH, Note, however, that to 
find any oarticular address within the memory Lmage, you must apply the 
neaative bias to the CP/M address to find the actual "address. Track 00, 
sector 01 is loaded to location 900H (you should find the cold start loader at 



900H to 97FH) , track 00, sector 02 is loaded into 980H {this is the base of 
the CCP) , and so- forth throuqh the entire CP/M system load. In a 16K system, 
for example, the CCP resides at the CP/M address 2900H, but is placed into 
memory at 980H by the SYSGEN program. Thus, the negative bias, denoted by n, 
satisfies 

2900H + n = 980H, or n = 980H - 2900H 
Assuming tavo's ccmplenent arithmetic, n = 0E080H, which can be checked by 

2900H + 0E080H = 10980H = 0980H (ignoring high-order overflow) . 

Note that for larger systsns, n satisfies 

(2900H+b) 4- n = 980H, or 
n = 980H - (2900H + b) , or 
n = 0E080H - b. 

The value of n for common CP/M systems is given below 

negative offset n 

0E080H - 0000K = 0E080H 

0E080H - 2000H = 0C080K 

0E080H - 4000H = 0A080H 

0E080H - 6000H = 3080H 

0E080H - 8000H = 6080H 

0E080H - 0A000H = 4080H 

0E080H - 0B800H = 2880H 

0E080H - 0C000H = 2080H 

Assume, for example, that you ^^ant to locate the address x within the memory 
image loaded under DCT in a 16K system. First type 

Hx,n Hexadecimal sum and difference 

and DDP will respond with the value of x+n (sum) and x-n (difference) . The 
first number printed by DOT will be the actual mem.ory address in the image 
where the data or code will be found. The input 

H2900,E080 

for example, will produce 980H as the sum, which is where the CCP is located 
in the memory image under DOT. 

Use the L command to disassemble portions of your CBICS located at (3E00H+b)+n 
which, ^Mnen you use the H command, produces an actual address of 1E80H. The 
disassembly ccmmand would thus be 

L1E80 



memory size 


bias b 


16K 


0000H 


24K 


2000H 


32K 


4000H 


40K 


6000H 


48K 


8000H 


56K 


0A000H 


62K 


0B800H 


64K 


0C000H 



Terminate DOT by typing a control-C or "G0" in order to prepare the patch 
program. Your CBIOS and BOOT can be modified using the editor and assembled 
using hm, producing files called CBIOS. HEX and BOOT. HEX which contain the 
machine code for CBIOS and BOOT in Intel hex format. In order to integrate 
your new modules, return to DOT by typing 

DOT CPMxx.OOM Start DOT and load the CPMxx image 

It is now necessary to patch in your GBOOT and CBIOS routines. The BOOT 
resides at location 0900H in the memory image. If the actual load address is 
'x', then to calculate the bias (m) use the command: 

H900,x Subtract load address from 

target address. 

The second number typed in response to the command is the desired bias (m) . 
For example, if your BOOT executes at 0080H, the command: 

H900,80 

will reply 

0980 0880 Sum and difference in hex. 

Therefore, the bias "m" would be 0880H. To read the BOOT in, give the 
command : 



ICBOOT.HEX Input file CBOOT.HEX 



Then; 



Rm Read CBOOT with a bias of 

m (=900H-x) 

You may now examine your CBOOT with: 

L900 

We are now ready to replace the CBIOS. Examine the area at 1E80H where the 
previous version of the CBIOS resides. Then type 

ICBIOS.KEX Ready the hex file for loading 

Assume that your CBIOS is being integrated into a 16K CP/M system, and thus is 
based at location 3E00K. In order to properly locate the CBIOS in the memory 
image under DOT, we must apply the negative bias n for a 16K system when 
loading the hex file. This is accomplished by typing 

RE080 Read the file with bias 0E080H 



Upon completion of the read, re-examine the area where the C3I0S has been 
loaded (use an "LIESO" camnand) , to ensure that it was loaded properly. When 
you are satisfied that the oatch has been made, return from DOT usinq a 
control-C or "G0'* command. 

Now use SYSGEN to place the patched memory imaae back onto a diskette {use 
a test diskette until you are sure of your patch) , as shown in the following 
interaction: 

SYSGEN Start the SYSGEN program 

SYSGEN VERSION 1.4 Sign-on message from SYSGEN 

SOURCE ERIVE mME (OR RETURN TO SKIP) 

Respond with a carriage return 
to skip the CP/M read operation 
since the system is already in 
memory. 

DESTINATION DRIVE NAME (OR RETURN TO REBOOT) 

Respond with B to write the new 
system to the diskette in drive 
B. 

DESTI^F^TION ON 3, THEN TYPE RETUR>] 

Hit the return key to oerform 
the actual write. 

FmTCTION COMPLETE 

DESTINATION CHIVE NAME (OR RETURN TO REBOOT) 

Respond with a carriage return 
to reboot. 

Place the test diskette on drive B (if you are operating with a single-drive 
system, answer "A" rather than "B" to the DESTINATION request; then remove 
your diskette, and replace it with the test diskette) , and type a return. The 
system will be replaced on the test diskette. Test the new CP/M system by 
placing the test diskette in drive A and cold-starting. 

Write the Digital Research copyright notice on the diskette, as specified 
in your Licensing Agreement: 

Copyright (c) , 1978 
Digital Research 



4. SAMPLE GETSYS AND POTSYS PROGRAMS 

The following program provides a framework for the GETSYS and POTSYS 
programs referenced in Section 2. The REAIDSEC and WRITESEC subroutines must 
be inserted bv the user to read and write the sT^ecific sectors. 



GETSYS PROGRAM - : 


; RFniSTKR 






A 






B 


1 




C 






DE 






HL 






SP 




START: 


LXI 


SP,2880H 




IXl 


H, 2880H 




MVT 


B, 


RDTRK: 








MVI 


C,l 


PD3EC: 








CALL 


READS EC 




1X1 


D,128 




DAD 


D 




INR 


C 




MOV 


A,C 




CPI 


27 




JC 


RDSEC 



READ TRACKS AND 1 TO MEMORY AT 2880H 

USE 
(SCRATCH REGISTER) 
TRACK OOL^NT (0,1) 
SECTOR COUNT (1,2,..., 26) 
(SCRATCH REGISTER PAIR) 
LOAD ADDRESS 
SET' TO STACK ADDRESS 



SET STACK POINTER TO SCRATCH AREA 

SET BASE LOAD ADDRESS 

START WITH TRACK 

READ NEXT TRACK (INITIALLY 0) 

READ STARTING WITH SECTOR 1 

READ NEXT SECTOR 

USER-SUPPLIED SUBROOTINE 

MOVE LOAD ADDRESS TO NEXT 1/2 PAGE 

HL = HL + 128 

SECTOR = SECTOR + 1 

CHECK FOR END OF TRACK 

;CARRY GENERATED IF SECTOR < 27 



; ARRIVE HERE AT END OF TRACK, ^DVE TO NEXT TRACK 
INR B 

MOV A,B ;TEST FOR LAST TRACK 
CPI 2 
JC RDTRK ;C:ARRY GENERATED IF TRACK < 2 

; ARRIVE HERE AT END OF LCAD, HALT FOR NOW 
HLT 

; USER-SUPPLIED SUBROOTINE TO READ THE DISK 
READSEC: 

ENTER WITH TRACK NUMBER IN REGISTER 3, 

SECTOR NUMBER IN REGISTER C, AbJD 

ADDRESS TO FILL IN HL 



PUSH 
PUSH 



;SAVE B AND C REGISTERS 
;SAVE HL REGISTERS 



Perform disk read at this point, branch to 
label START if an error occurs 



10 



POP H ;RECXDVER HL 

POP B ; RECOVER B MD C REGISTERS 

RET ;BACK TO MAIN PROGRAT-l 

END START 

Mote that this proaram is assembled with an assumed origin of 0100. and listed 
in Appendix D for reference purposes. The hexadecimal operation codes which 
are listed on the left may be useful if the program has to be entered through 
your machine's front panel switches. 

The PUTSYS program can be constructed from GETSY5 by changing only a few 
operations in the GETSYS program given above, as shown in Appendix E. The 
register pair HL becomes the dump address (next address to write) , and 
operations upon these registers do not change within the program. The READSEC 
subroutine is replaced by a WRITESEC subroutine which performs the opposite 
function: data from address HL is written to the track given by register B 
and the sector given by register C. It is often useful to combine QETSYS and 
PUTSYS into a single program during the test and development phase, as shown 
in Appendix E. 
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5. DISKETTE ORGANIZATION 

The sector allocation for the standard distribution version of CP/M is 
qiven here for reference purposes. The first sector (see Figure 1) contains 
an optional software boot section. Disk controllers are often set up to bring 
track %, sector 1 into Tnemory at a specific location {often location 0000H) . 
The program in this sector, called LBOOT, has the responsibility of bringing 
the remaining sectors into memory starting at location 2900H+b. If your 
controller does not have a built-in sector load, you can ianore the program in 
track 0, sector 1 and begin the load from track sector 2 to location 
2900H+b. 

As an example, the Intel MDS-800 hardware cold start loader brings track 
0, sector 1 into absolute address 3000H, Thus, the distribution version 
contains two very small programs in track 0, sector 1: 

MBOOT - a storage move program which moves LBOOT into 
place following the cold start (Appendix A) 

LBOOT - the cold start boot loader (Appendix B) 

Upon MIS start-up, the 128 byte segment on track 0, sector 1 is brought 
into 3000H* The I4300T program gets control, and moves the LBOCT program fron 
location 301EH down to location 80H in memory, in order to get LBOOT out of 
the area where CP/M is loaded in a 16K system. Note that the MBOOT 
program would not be needed if the MDS loaded directly to 80H« In general, 
the LBOOT proqram could be located anyv^ere outside the CP/M load area, but is 
most often located in the area between 000H and 0FFH (below the TPA) . 

After the nove, ivQooT transfers to LBOOT at 80H. LBOOT, in turn, loads 
the renainder of track and the initialized portion of track 1 to memory, 
starting at 2900H+b. The user should note that MBOOT and LBOOT are of little 
use in a non-[4DS environment, although it is useful to study them since some 
of their actions will have to be duplicated in your cold start loader, 

Fiaure 1. Diskette Allocation 



Tr acki^ 


Sector?^ 


Paqe^ 


MOTory Address 


CP/M Module name 


00 


01 




(boot address) 


Cold Start Loader 



00 



02 


00 


2900H+b 


03 


li 


2980H+b 


04 


01 


2A00H+b 


05 


ti 


ZA80H+b 


06 


02 


2B00H+b 


07 


" 


2B80H+b 


08 


03 


2C80H+b 


09 


II 


2C80H+b 



CCP 



12 



00 



00 



01 



10 


04 


2D00H+b 


11 


ti 


2D80H+b 


12 


05 


2E00H+b 


13 


il 


2E80H+b 


14 


06 


2F00H+b 


15 


M 


2F80H+b 


16 


07 


3000H+b 


17 


It 


3080H+b 


18 


08 


3100H+b 


19 


II 


3180H+b 


20 


09 


3200H+b 


21 


11 


3280H+b 


22 


10 


3300H+b 


23 


il 


3380H+b 


24 


11 


3400H+b 


25 


It 


3480H+b 


26 


12 


3500H+b 


01 


It 


3580H+b 


02 


13 


3600H+b 


03 


It 


3680H+b 


04 


14 


3700H+b 


05 


II 


3780H+b 


06 


15 


3800H+b 


07 


«i 


3880H+b 


08 


16 


3900H+b 


09 


II 


3980H+b 


10 


17 


3A00H+b 


11 


i( 


3A80H+b 


12 


18 


3300H+b 


13 


M 


3B80H+b 


14 


19 


3C00H+b 


15 


II 


3C80H+b 


16 


20 


3D00H+b 


17 


II 


3D80H+b 


18 


21 


3E00H+b 


19 


II 


3E80H+b 


20 


22 


3F00H+b 


21 


II 


3F80H+b 



CCP 



8D0S 



BDOS 



01 



BIOS 



01 


21 


3F80H+b 


BIOS 


01 


22-26 




(not currently used) 


02-76 


01-26 




(directory and data) 
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6. THE BIOS Et^FY POINTS 

The entry pDints into the BIOS from the cold start loader and BDOS are 
detailed below. Entry to the BIOS is through a "jump vector" between 
locations 3E00H+b and 3E2CK+b, as shown below (see also Appendices, pages C-2 
and D-1). The jump vector is a sequence of 15 jump instructions which send 
program control to the individual BIOS subroutines. The BIOS subroutines may 
be ST\pty for certain functions (i.e., they may contain a single RET operation) 
during regeneration of CP/M, but the entries must be present in the jump 
vector. 

It should be noted that there is a 16 byte area reserved in page zero (see 
Section 9) starting at location 40H, which is available as a "scratch" area in 
case the BIOS is implenented in ROM by the user. This scratch area is never 
accessed by any other CP/M si±>system during operation. 



The jump vector at 3E00H+b takes the form 
individual jump addresses are given to the left: 



shown below, where the 



3E00H+b 
3E03H+b 
3E06H+b 
3E09H+b 
3E0CH+b 
3E0FH+b 
3E12H+b 
3E15H+b 
3E18H+b 
3ElBH+b 
3ElEH+b 
3E21H+b 
3E24K+b 
3E27H+b 
3E2AH+b 



JMP BOOT 
JMP WBOOT 
JMP CONST 
JMP CONIN 
JMP OONOUr 
JMP LIST 
JT4P PUNCH 
JMP READER 
JMP HOME 
JMP SELDSK 
JMP SETTTRK 
JMP SCTSEC 
JI^IP SETDMA 
JMP READ 
JT>1P WRITE 



;ARRIVE HERE FRCFi COLD START LOAD 

; ARRIVE HERE FOR WARM START 

; CHECK FOR CONSOLE CHAR READY 

;READ CONSOLE CHARACTER IN 

;WRITE CONSOLE CHARACTER OUT 

;WRITE LISTING CHARACTER OUT 

?VvRITE CHARACTER TO FJNCH DEVICE 

;READ READER TEVLCE 

?MOVE TO TRACK 00 ON SELECTED DISK 

;SEL£CT DISK DRIVE 

;SET TRACK NUI^^ER 

;SET SECTOR NUMBER 

;SET DMA ADDRESS 

;READ SELECTED SECTOR 

; WRITE SELECTED SECTOR 



Each jump address corresponds to a particular subroutine which performs the 
specific function, as outlined below. There are three major divisions in the 
jump table: (1) the system (re) initialization which results from calls on BOOT 
and mocn:, (2) simole character I/O performed by calls on CONST, OONIN, 
CONOUr, LIST, PUNCH, and READER, and (3) diskette I/O performed by calls on 
HOME, SELDSK, SETETRK, SETSEC, SEnDMA, READ, and WRITE. 

All simple character I/O operations are ass'jmed to be performed in ASCII, 
upcer and lower case, with high order (parity bit) set to zero. An 
end-of-file condition is given by an ASCII control-z (lAH) . Peripheral 
devices are seen by CP/M as "logical" devices, and are assigned to physical 
devices within the BIOS. In order to operate, the BDOS needs only the CONST, 
CONIN, and CONOOT subroutines (LIST, PUNCH, and READER are used by PIP, but 
not by the BDOS) . Thus, the initial version of CBIOS may have empty 
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subroutines for the remaining ASCII devices. The characteristics of each 
device are 

CONSOLE The principal interactive console v/hich 

communicates ;vith the operator, accessed 
through CONST, CONIN, and CONOOT. Typi- 
cally, the CONSOLE is a device such as a 
CRT or Teletype. 

LIST The principal listing device, if it 

exists on your system, which is usually 
a hard-copy device, such as a printer 
or Teletype. 

PUNCH The principal tape punching device, if it 

exists, which is normally a high-speed 
paiDer tape punch or Teletype. 

READEP The principal tape reading device, such as 

a simple optical reader or Teletype. 

Note that a single peripheral can be assigned as the LIST, PUNCH, and READER 
device simultaneously. If no peripheral device is assigned as the LIST, 
PUNCH, or READER device, the CBIOS created by the user should give an 
appropriate error niessage so that the system does not "hang" if the device is 
accessed by PIP or some other user program. Alternately, the PUNCH and LIST 
routines can simply return, and the READER routine can return ^^th a lAH 
(ctl-Z) in reg A to indicate immediate end-of-file. 

For added flexibility, the user can ootionally implement the "lOBYTE" 
function which allows reassignment of physical and logical devices. The 
ICBYIE function creates a mapping of logical to physical devices which can be 
altered during CP/M processing (see the STAT command). The definition of the 
lOBYTE function corresponds to the Intel standard as follows: a single 
location in memory (currently location 0003H) is maintained, called lOBYTE, 
which defines the logical to physical device mapping which is in effect at a 
particular time. The mapping is performed by splitting the lOBYTE into four 
distinct fields of two bits each, called the CONSOLE, READER, PUNCH, and LIST 
fields, as shown below: 

most significant least significant 



ICBYTE AT 0003H | LIST | PUNCH I READER 1 CONSOLE 



bits 6,7 bits 4,5 bits 2,3 bits 0,1 



The value in each field can be in the range 0-3, defining the assigned source 
or destination of each logical device. The values which can be assigned to 
each field are given below 
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CONSOLE field (bits 0,1) 

- console is assiqned to the console printer device (TTY:) 

1 - console is assiqned to the CRT device (CRT:) 

2 - batch mode: use the READER as the CONSOLE input, 

and the LIST device as the CONSOLE output (BAT:) 

3 - user-defined console device (UCl:) 

READER field (bits 2.3) 

- READER is the Teletype device (TTY:) 

1 - READER is the hiah-speed reader device (PTR:) 

2 - user-defined reader # 1 (UKl:) 

3 - user-defined reader # 2 (UR2:) 

PUNCH field (bits 4,5) 

- PUNCH is the Teletype device (TTY:) 

1 - PUNCH is the hiqh speed punch device (PTP: ) 

2 - user-defined punch I 1 (UPl:) 

3 - user-defined punch # 2 (UP2:) 

LIST field (bits 6,7) 

- LIST is the Teletype device (TTY:) 

1 - LIST is the CRT device (CRT:) 

2 - LIST is the line printer device (LPT:) 

3 - user-defined list device (ULl:) 

Note again that the implementation of the lOBYTE is optional, and affects only 
the organization of your CBIOS. No CP/M systems use the ICBYTS (although they 
tolerate the existence of the lOBYTE at location 0003H) , except for PIP which 
allows access to the physical devices, and STAT v^ich allows logical-physical 
assiqnments to be made and/or displayed (for more information, see the "CP/M 
Features and Facilities Guide") . In any case, the lOBYTE implementation 
should be omitted until your basic CBIOS is fully implenented and tested; then 
add the KBYTE to increase your facilities. 

Disk I/O is always performed through a sequence of calls on the various 
disk access subroutines. These set up the disk number to access, the track 
and sector on a particular disk, and the direct memory access {D^SA) address 
involved in the I/O operation. After all these parameters have been set up, a 
call is made to the READ or WRITE function to perform the actual I/O 
operation. Note that there is often a single call to SELDSK to select a disk 
drive, folloved by a number of read or write operations to the selected disk, 
before selecting another drive for subsequent operations. Similarly, there 
may be a single call to set the DMA address, followed by several calls vhich 
read or write from the selected DMA address, before the DMA address is 
changed. The track and sector subroutines are always called before the READ 
or VRITE operations are performed. Note that the READ and WRITE routines 
should perform several re-tries (10 is a good number) before reporting the 
error condition to the 3D0S, If the error condition is returned to the BDOS, 
it will report the error to the user. The HQ^ subroutine may or may not 
actually perform the track 00 seek, depending upon your controller 
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characteristics; the important point is that track 00 has been selected for 
the next operation, and is often treated in exactly the same manner as SETTRK 
with a parameter of 00. 

The exact responsibilites of each entry point subroutine are given below: 



BDOT 



The BOOT entry point gets control from the cold start loader 
and is responsible for basic system initialization, includ- 
ing sending a signon message (which can be emitted in the 
first version). If the ICBYTE function is implemented, it 
must be set at this point. The various system parameters 
which are set by the WBOOT entry point must be initialized, 
and control is transferred to the'cCP at 2900H+b for further 
processing. Note that reg C must be set to zero to select 
drive A. 



WBOOT 



The WBOOT entry point gets control when a warm start occurs, 
A T/erm start is performed whenever a user program branches to 
location 0000H, or when the CPU is reset from the front panel. 
The CP/M system must be loaded from the first two tracks of 
drive A up to, but not including, the BIOS {or CBIOS, if you 
have completed your patch) . System parameters must be ini- 
tialized as shown below: 



location 0,1,2 
location 3 
location 5,6,7 



Set to JIAF WBOOT for warm starts 
(0000H: JMP 3E03H+b) . 
Set initial value of lOBYTE, if 
implemented in your CBIOS. 
Set to JT4P BDOS, which is the 
primary entry point to CP/M for 
transient programs 
(0005H: JMP 3106H+b) . 



(See Section 9 for canplete details of page zero use.) 
Upon completion of the initialization, the WBOOT program 
must branch to the CCP at 2900H+b to (re) start the system. 
Upon entry to the CCP, register C is set to the drive to 
select after system initialization. 

CONST Sample the status of the currently assigned console device; 

return 0FFH in register A if a character is ready to read 
and 00H in register A if no console characters are ready. 

GONIN Read the next console character into register A, and set the 

high-order (parity bit) . If no console character is ready, 
wait until a character is typed before returning. 

OONOUT Send the character from register C to the console output de- 

vice. The character is in ASCII, with high-order (parity) bit 
set to zero. You mav '^nt to include a tLme-out on a line 
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LIST 



PUNCH 



RRZ^ER 



HCME 



feed or carriage return, if your console device requires some 
time interval at the end of the line (such as a TI Silent 700 
terminal). You can, if you wish, filter out control char- 
acters which cause your console device to react in a strange 
way (a control-z causes the Lear Seigler terminal to clear 
the screen, for examole) . 

Send the character from register C to the currently assigned 
listinq device. The aharacter is in ASCII with zero carity. 

Send the character from register C to the currently assigned 
punch device. The character is in ASCII with zero parity. 

Read the next character from the currently assigned reader de- 
vice into register A with zero parity (high-order bit must be 
zero) , an end-of-file condition is reported by returning an 
ASCII control-z (lAH) . 

Return the disk head of the currently selected disk (initially 
disk A) to the track 00 position. If your controller allows 
access to the track flag from the drive, step the head until 
the track flag is detected. If your controller does not 
support this feature, you can translate the HOME call into a 
call on SETTRK with a parameter of 0. 



SELC6K Select the disk drive given by register C for further opera- 

tions, v^ere register C contains for drive A, 1 for drive 3, 
2 for drive C, and 3 for drive D. (The standard CP/M 
distribution version supports a maxim.um of four drives) . If 
your system has less than 4 drives, you may wish to give an 
error message at the console, and terminate execution. It is 
advisable to postpone the actual disk select operation until 
an I/O function (seek, read or write) is actually performed, 
since disk selects often occur without ultimately performina 
any disk I/O, and many controllers will unload the head of the 
current disk before selecting the new drive. This would 
cause an excessive amount of noise and disk vear. 

SETTRK Register C contains the track namber for subsequent disk 

accesses on the currently selected drive. You can choose to 
seek the selected track at this time, or delay the seek until 
the next read or write actually occurs. Register C can take 
on values in the ranqe 0-76 corresponding to valid track 
numbers. 

SETSEC Reqister C contains the sector number (1 throuah 26) for sub- 

sequent disk accesses on the currently selected drive. You 
can choose to send this information to the controller at this 
point, or instead delay sector selection until a read or 
write operation occurs. 
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SETDMA Registers B and C (high-order 8 bits in B, low-order 8 bits 

in C) contain the DMA (Direct Memory Access) address for sub- 
sequent read or write operations. For example, if B = 00H 
and C = 80H when SETDMA is called, then all subsequent read 
operations read their data into 80H through 0FFH, and all 
subsequent write operations get their data fron 80H through 
0FFH, until the next call to SETDMA occurs. The initial 
Df4A address is assumed to be 80H. Note that the controller 
need not actually support direct memory access. If, for 
example, all data is received and sent through I/O ports, the 
CBIOS which you construct will use the 128-byte area starting 
at the selected DMA address for the memory buffer during the 
following read or write operations. 



READ 



Assuming the drive has been selected, the track has been set, 
the sector has been set, and the DMA address has been speci- 
fied, the READ subroutine attempts to read one sector based 
upon these parameters, and returns the following error codes 
in register A: 



no errors occurred 

1 non-recoverable error condition occurred 

Currently, CP/M responds only to a zero or non-zero value as 
the return code. That is, if the value in register A is 
then CP/M assumes that the disk operation completed properly. 
If an error occurs, however, the CBIOS should attempt at 
least 10 re-tries to see if the error is recoverable. When an 
error is reported the BDOS will print the message "BDOS ERR 
ON x: BAD SECTOR." The operator then has the option of 
typing <cr> to ignore the error, or control-C to abort. 



WRITE 



Write the data frcm the currently selected DMA address to the 
currently selected drive, track, and sector. The data should 
be marked as '*non deleted data" to maintain ccmpatibility 
with other CP/M systens. The error codes given in the READ 
command are returned in register A, with error recovery at- 
tanpts as described above. 
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7. A SAMPLE BIOS 

The program shown in Appendix D can serve as a basis for your first BIOS. 
The simplest finctions are assumed in this BIOS, so that you can enter it 
through the front panels if absolutely necessary. Note that the user must 
alter and insert code into the subroutines for CONST, OONIN, GDNOOT, READ, 
WRITE, and WAITIO, Storage is reserved for user-supplied code in these 
reqions. The scratch area reserved in page zero {see Section 9) for the BIOS 
is used in this program, so that it could be implemented in ROM, if desired. 

Qice operational, this skeletal version can be enhanced to print the 
initial sign-on message and perform better error recovery. The subroutines 
for LIST, PUNCH, and READER can be filled-out, and the ICBYTE function can be 
implemented. 



8. A SAMPLE COLD START LCADER 

The program, shown in Appendix S can serve as a basis for your cold start 
loader. The disk read function must be supplied by the user, and the proqram 
must be loaded somehov/ starting at location 0000. Note that space is reserved 
for your patch so that the total amount of storage required for the cold start 
loader is 128 bytes. Eventually, you will probably vent to get this loader 
onto the first disk sector (track 0, sector 1) and cause your controller to 
load it into memory automatically upon system start-up. Alternatively, you 
may wish to place the cold start loader into ROM and place it above the CP/M 
system. In this case, it will be necessary to originate the arogram at a 
higher address and key-in a jump instruction at system start-up v^ich branches 
to the loader. Subsequent warm starts will not require this key-in operation, 
since the entry point 'WBOOT' gets control, thus bringing the system in fran 
disk automatically. Note also that the skeletal cold start loader has minimal 
error recovery, vhich may be enhanced on later versions. 



RESERVED LOCATIONS IN PAGE ZERO 



Main memory page zero, locations 00H through 0FFH, contains several 
segments of code and data ^ich are used durinq CP/M processing. The code and 
data areas are given below for reference purposes. 



Locations 
frcm to 
0000H - 0002H 



0003H - 0003H 

0004H - 0004H 
0005H - 0007H 



0008H - 0027H 
0030H - 0037H 
0038H - 003AH 

003BH - 003FH 
0040H - 004FH 

0050H - 005BH 
005CH - 007CH 

007DH - 007FH 



Contents 

Contains a jump instruction to the warm start entry 
point at location 3E03H+b. This allows a simple 
programmed restart (JMP 0000H) or manual restart from 
the front panel. 

Contains the Intel standard ICBYTE, which is optionally 
included in the user's GBIOS, as described in Section 6. 

Current default drive number (0=A, 1=B, 2=C, 3=D) . 

Contains a jumip instruction to the BDOS, and serves two 
purposes: JMP 0005H provides the primary entry point to 
the BDOS, as described in the manual "CP/M Interface 
Guide," and LHLD 0006H brings the address field of the 
instruction to the HL register pair. This value is the 
lowest address in memory used by CP/M (assuming the CCP 
is being overlayed) . Note that the DDT program will 
change the address field to reflect the reduced memory 
size in debug mode. 

(interrupt locations 1 through 5 not used) 

(interrupt location 6, not currently used - reserved) 

Contains a jump instruction into the DDT program when 
running in debug mode for programmed breakpoints, but 
is not otherwise used by CP/M. 

(not currently used - reserved) 

16 byte area reserved for scratch by CHIOS, but is not 
used for any purpose in the distribution version of CP/M 

(not currently used - reserved) 

Default File Control Block produced for a transient pro- 
gram by the Console Command Processor. 

(not currently used - reserved) 
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0080H - 00Fra Default 128-byte disk buffer (also filled with the ccxn- 

mand line when a transient is loaded "jnder the CCP) , 

Note that this inforniation is secup for normal operation under the CP/M 
system, but can be overwritten by a transient program if the BDOS facilities 
are not required by the transient. If, for example, a particular program 
performs only simple I/O and must begin execution at location Q, it can be 
first loaded into the TPA, using normal CP/M facilities, with a small memory 
move program v^ich gets control v^en loaded (the memory move program must get 
control from location 0100H, which is the assumed beginning of all transient 
programs) . The move program can then proceed to move the entire memory image 
down to location Q, and pass control to the starting address of the memory 
load. Note that if the BIOS is overwritten, or if location (containing the 
warm start entry point) is overwritten, then the programmer must bring the 
CP/M syston back into memory with a cold start sequence. 
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10, NOTES FOR VBEBS OF CP/M VERSION 1.3 

The only difference in memory layout between CP/M versions 1.3 and 1.4 is 
the location of the BDOS, which has been moved down one page (3100h+b instead 
of 3200h+b) . Therefore, your present CBIOS must be changed to reflect this. 
Normally, the only change is found in the initialization of the jump 
instruction at location 5, This jump should now be JMP 3106H+b instead of JMP 
3206H+b, Note that the CCP is one page shorter, offsetting the longer BOOS, 
so that the systen load address (2900H+b) remains the same. CP/M 1.4 also 
supports four drives, and thus your CBIOS must account for a drive select 
value in the range 0-3. No other changes to CP/M affect the CHIOS 
organization. 
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APPENDIX A: THE MDS LOADER KNE PROGRAin 



MDS LCADER MDVE PROGRAM, PLACES COLD START BOOT AT BOGTB 



3000 
0080 = 
0080 = 
D900 = 

0078 = 

0079 = 
007B = 



BOOTH 

BOOTL 

MBIAS 

BASE 

RTYFE 

RBYTE 



0R3 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



3000H 

80H 

80H 

900H-$ 

078H 

BASE+1 

BASE+3 



WE ARE LOADED HERE ON (DLD START 

STAi^ OP COLD BOOT PROGRAAi 

LENCTTH OF BOOT 

BIAS TO PDD DURING LC^^D 

'BASE' USED BY DISK CONTROLLER 

RESULT TYPE 

RESULT TYPE 



00FF = 



BSt^? 



lOU 



0FFH 



?BOOT S\ITCH 



3000 rB79 
3002 rB7B 



CLEAi< DISK STATUS 
IN RTYPE 

IN RBYTE 



3004 DBFF 
3006 E602 
3QdB C20430 



COLESTART': 
IN 

ANI 



BS'W 

2H ; SWITCH ON? 

ODLDSTART 



300E 
3010 
3013 
3014 
3015 
3016 
3017 
3018 
3013 



211E30 

0680 

118000 

7E 

12 

23 

13 

05 

C21330 

C38000 



bVVE 



LKI 

IWL 

LXI 

MOV 

STAX 

IN^ 

INX 

DCR 

JNZ 

JMP 



H^BOOTV 

B, BOOTL 

D^BOOTB 

A,M 

D 

H 

D 

B 

MOVE 

BOOTH 



? VIRTUAL BASE 
;LENCTH OF BOOT 
;DESTmATION OF BOOT 

;TRANSFEPvRED ONE BYTE 



;T0 BOOT SYSTEM 



089E 
301E 



BOOTV: ;BOOT LOADER PLACE HERE AT SYSTEM GENERATION 
L3IAS EQU $-80H+?-13IAS ;COLD START BOOT BEGINS AT 80H 

END 



A-i 



APPENDIX B: THE MES GOLD START LOADER 



0100 = 



FFFF 

0000 

0103 
0906 
1800 
1600 
1603 

0080 



MDS ODLD START LCADER FDR CP/M 
VERSION 1.4 JANUARY, 1978 



BIAS EQU 
FALSE EQU 
TRUE EQU 
TESTING EQU 



BDOSB 
BDOS 

BDOSE 

BOOT 

RBOCT 



EQU 
EOU 
EQU 
EQU 
EQU 

ORG 



100H ;BLAS FDR P.ELOCATION 



NOT FALSE 

FALSE ;IF TRUE, THEN GO TO KDN80 ON ERRORS 

BIAS ;BASE OF DOS LOAD 

80SH+3IAS ; ENTRY TO DOS FOR CALLS 

1700H+BIAS 7END OF DOS LCAD 

1500H+BIAS ;OOLD START ENTRY POINT 

BOOr+3 ;WARM START ENTRY POINT 



80K 



;LCiADED DOWN FROM HARDWARE BOOT AT 3000H 



1700 
00b'2 
002S 
0019 
0015 



BDOSL EQU BD0SE-BD0S3 

NTRKS EQU 2 ;NUMBER OF TRACKS TO READ 

BDOSS EQU BDOSL/128 ;Na4BER OF SECTORS IN DOS 

3DOS0 EQU 25 ;NUMBER OF BDOS SECTORS ON TRACK 

BDOSl EQU BDOSS-BDOS0 ;NUMBER OF SECTORS ON TRACK 1 



F800 

FF0F 
0073 
0079 
007B 
007F 

0078 
0079 
007A 
0003 
0004 
0100 



MON80 
RMON80 
BASE 
RTYI^ 

rbyt'e 

RESET 

• 

DSTAT 

ILOW 

I HIGH 

RECAL 

READF 

STACK 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



0F800H 

0FF0FH 

078H 

BASE+1 

BASE+3 

BASE+7 

BASE 

BASE+1 

BASE+2 

3H 

4H 

100H 



INTEL MONITOR BASE 
RESTART LOCATION FOR M)N30 
'BASE' USED BY CONTROLLER 
RESULT TYPE 
RESULT BYTE 
RESET CONTROLLER 

DISK STATUS FORT 

LOJ lOPB ADDRESS 

HIGH lOPB ADCRESS 

RECALIBRATE SELECTED DRIVE 

DISK READ FUNCTION 

USE END OF BOOT FOR STACK 



RSTART: 



0080 310001 
0083 D37F 



LXI SP, STACK; IN CASE OF CALL TO ^DN80 

CLEAR THE CONTROLLER 

OUT RESET ;LOGIC CLEARED 



0085 0602 
0037 21B700 



MVI B, NTRKS ;NUMBER OF TRACKS TO READ 

LXI H,IOPB0 



START: 



3-1 



READ FIRST/NEXT TRACK INTO BDC^B 



00aA 7D 
0083 D379 
008D 7C 
008E D37A 
0090 DB78 
0092 E604 
0094 CA9000 



0097 2679 
0099 E603 
009B FE02 



V:AIT0: 



009D D2S000 



MOV 


A,L 


our 


in:x\- 


>DV 


A,H 


our 


IHIGH 


IN 


DSTAT 


ANI 


4 


JZ 


V^IT0 


CHECK 


DISK STATUS 


IN 


RTYPE 


ANI 


IIB 


CPI 


2 


IF 


TESTING 


CNC 


Rr4ON80 ;G0 TO MDNITOR 


ENDIF 




IF 


NOT TESTING 


JNC 


RSTART ;RhTKY THE LCAD 


ENDIF 





O£A0 DB7B 

0SA2 17 
0aA3 DC0FFF 
00A6 IF 
00A7 E61E 



IN RBYI'E ;I/0 COMPLETE, CHECK SIATUS 

IF NOT READY, THEN GO TO E4ON80 

RAL 

CC R^1ON30 ;NOT RRADY BIT SETT 

RAR ; RESTORE 

ANI 11110B ;OVERRUN/ADm ERi^/SEEK/CRC/XXXX 



00A9 C28000 



IF 

CNZ 

ENT)IF 

IF 

JNZ 

ENDIF 



TESTING 

RMON30 ;G0 TO NDNITOR 

NOT TESTnSIG 

RSTART ;RETRY THE LOAD 



00AC 110700 
00AF 19 
00B0 05 
00B1 C28A00 



LXI D,IO?BL rLENGTK OF lOPB 

DAD D ; ADDRESSING NEXT IQPB 

DCR B ?O0UNT DOWN TRACKS 



JMP TO BOOT TO PRINT INITIAL MESSAGE, AND SET UP JI^IPS 



00B4 C30016 




JMP BOOT 




• 


PARAMETER BLOCKS 


0037 80 


IOP30: 


DB 80H ;IOav, NO UPDATE 


00B8 04 




DB READF ;READ FUNCTION 


00B9 19 




DB BDOS0 r- SECTORS TO READ ON TRACK 



B-2 



00BA 00 
00BB 02 
00BC 0001 
0007 = 

003E 80 
00BF 04 
00C0 15 
00C1 01 
00C2 01 
00C3 800D 



I0P3L 



IQPBl 



DB 





DB 


2 


DW 


BDOSB 


EOU 


$-IOP30 


DB 


80H 


DB 


READF 


DB 


BDOSl 


DB 


1 


DB 


1 


DW 


BDOSB+B 



TRACK 

START WITH SECTOR 2 ON TRACK 

START AT BASE OF BDOS 



SECTORS TO READ ON TRACK 1 
TRACK 1 
SECTOR 1 
BDOSB+BDOS0*128 ;BASE OF SECOND P.EAD 



00C5 



END 
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APPENDIX C: THE F^ BASIC I/O SYSTEM "(BIOS) 



G00E = 



\^RS 



FFFF 

0000 

FFFF 



TRUE 

FALSE 

SAMPLE 



MDS I/O DRIVEP^S FOR CP/M 
(FDUR DRIVE SINGLE DENSITY VEPsSION) 
VERSION 1.4 JANUARY, 1978 



EQU 
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; VERSION 1,4 



COPYRIGHT (C) 1973 
DIGITAL RESEARCH 
BOX 579, PACIFIC GROVE 
CALIFORNIA, 93950 



EQU 
SQU 
EQU 



0FFFFH ;VALL^ OF "TRUE" 
NOT TRUE ; "FALSE" 
TRUE ;TRUE IF SAT^PLE BIOS 



2900 = 



BIAS 



BIAS 



IF 

EQU 

E^roiF 

IF 

EQU 

ENDIF 



SAMPLE 

2900H ; SAMPLE PROGRA-M IN 16K SYSTEiM 

NOT SAMPLE 

0000H ;GENERATE RELXATAELE CP/M SYSTD' 



3E00 = 



PATCH EQU 



1500H+BLAS 



3E00 
2900 
3106 
1500 
002A 
0002 
0004 
0080 
000A 



CPMiB 

BDOS 

CPML 

NSECTS 

OFFSET 

CDISK 

BUFF 

P.ETRY 



ORG 
EQU 
EQU 
SQU 
EQU 
EQU 
EQU 
EQU 
EQU 



PATCH 
000H+BIAS 
806K+BIAS 
$-CPM3 ;LENGTH 
CPML/128 



;BASE OF CPM CONSOLE PROCESSOR 
;BASIC DOS (RESIDENT PORTION) 
(IN BYTES) OF CPM SYSTEM 
;NUMBER OF SECTORS TO LOAD 



2 ;NUI^1BER OF DISK TRACKS USED BY CP/M 

0004H ; ADDRESS OF LAST LOCKED DISK ON V^RM START 

0080H ;DEFAULT BUFFER ADDRESS 

10 ;MAX RETRIES ON DISK I/O BEFORE ERROR 



PERFORM FOLLavTNG FUNCTIONS 
BOOT COLD START 
W300T WARM STARI (SAVE I/O BYTE) 
(BOOT AND WBOOT' AJ?£ THE SAME FDR MDS' 



CONST 



OONIN 

CDNOUT 

LIST 

PL^'CK 

READER 

HQ^IE 



CONSOLE STATUS 

RBG-A = 00 IF NO CHARACTER READY 

REG-A = FF IF CHARACTER READY 

00-NSOLE CHARACTER IN (RESULT IN RBG-A) 

OONSOLE CHARACTER OUT (CHAR IN REG-C) 

LIST QUI' (CHAR IN REG-C) 

PUNCH our (CHAR IN REG-C) 

PA^ER TAJ>E P^ADER IN (RESULT TO REG-A) 

MOVE TO TRACK 00 



(THE FDLLCWING CALLS SET-UP THE 10 PARAMETE? BLCXZK FOR THE 
MES, \<IE1CE IS USED TO PERPORT-l SUBSEQUEOT READS AND WRITES) 
SELDSK SELECT DISK GIVEN BY REG-C (0,1,2...) 

SETTRK SET TRACK ADDRESS (0,...76) EOR SUBSEQUENT READAvRITE 
SETSEC SET SECTOR ADDRESS (1,...,26) FOR SUBSECL'ENT READ/TvRITE 
SETDMA SET SUBSEQUENT DMA ADDRESS (INITIALLY 80H) 

(READ AND WRITE ASSUME PREVIOUS CALLS TO SET UP THE 10 PARAi^ETERS) 
READ READ TRACK/SECTOR TO PRESET DM-A ADDRESS 
WRITE WRITE TRACK/SECTOR FROM PRESET DMA ADDRESS 

JUMP VECTOR FOR INDIVIUAL ROUTINES 



3E00 C3443E 


JMP 


BOOT 


3E03 C3543E 


WBOOTE: J?4P 


WBOOT 


3E06 C3F23E 


JT^P 


CONST 


3E09 C3F53E 


JMP 


CONIN 


3E0C C3FB3E 


JMP 


ooNOurr 


3E0F C3FE3E 


JMP 


LIST 


3E12 C3013F 


■JMP 


PUNCH 


3E15 C3043F 


JMP 


READER 


3E18 C3073F 


JMP 


HOME 


3E1B C30C3F 


JMP 


SEiaSK 


3E1E C32A3F 


JMP 


SLUTKK 


3E21 C32F3F 


JMP 


SETSEC 


3E24 C3343F 


JMP 


SETDMA 


3E27 C33A3F 


JMP 


READ 


3E2A C3433F 


JT>IP 


WRITE 



END OF OONTROLLER - INDEPENDENT CODE, THE REMAINING SUBROUTINES 
ARE TAILORED TO THE PARTICULAR OPERATING ENVIRONMENT, AND MUST 
BE ALTERED FOR ^Y SYSTEM WHICH' DIFFERS FROM THE INTEL MES. 

THE FOLLOWING CODE ASSUMES THE MES l^CNITOR EXISTS AT 0F800H 
AND USES THE I/O SUBROUTINES WITHIN THE t^DNITOR 

WE ALSO ASSUME THE c^CS SYSTEM HAS POUR DISK DRIVES 



0004 
00FD 
00FC 
00F3 
007E 



NDISKS 
REVRT 
INTC 
ICON 

INTE 



EQU 
EQU 
EQU 

ECU 
EQU 



4 ;NUMBER OF DRIVES AVAILABLE 

0FDH ? INTERRUPT REVERT PORT 

0FCH ; INTERRUPT MASK PORT 

0F3H ;I^rTERRUPT CONTROL PORT 



0111$1110B 



; ENABLE RST 0(^\ARM BOOT') , RST 7 (MONITOR) 



F800 
FF0F 
F803 
F806 
F809 



; MDS MDNITOR EQUATES 

MON80 EQU 0FS00H ;MES MONITOR 

RMON80 EQU 0FF0FH ; RESTART MON80 (BOOT ERROR) 

CI EQU 0F803H ; CONSOLE CHARACTER TO REG-A 

RI EQU 0F806H ; READER IN TO RBG-A 

CO EQU 0F809H ; CONSOLE CHAR FROM C TO CONSOLE OUT 



C-2 



F80C = 
F80F = 
F812 = 



PO 
LO 

CSTS 



EOU 
EQU 
EQU 



0F80CH 
0F80FK 
0F812H 



PUNCH CHAE FROM C TO PUNCH DEVICE 
LIST FROM C TO LIST DEVICE 
CONSOLE STATUS 00/FF TO P.BGISTER A 



DISK PORTS AND OOMI^ANDS 



0078 = 

0078 = 

0079 = 
007B = 

0079 = 

007A = 

0004 = 
0006 = 

0003 = 

0004 = 
000D = 
000A = 



BASE 
DSTAT 

RTYPE 
RBYTE 

■ 

ILCW 
I HIGH 



EOU 
EQU 
EOU 
EOU 

EOU 
EOU 



READF EQU 

WRITE EQU 

RECAL EOU 

lORDY EOU 

CR EOU 

LF EQU 



78H 
BASE 
BASE+1 
BASE+3 

BASE+1 

BASE+2 

4H 

6H 

3H 

4H 

0DK 

0AH 



BASE OF DISK COMMAND 10 PORTS 
DISK STATUS (INPLtT) 
RESULT TYPE (INPUT) 
RESULT BYTE (INPUT) 

lOPB LOW ADDRESS (OUTPUT) 
lOPB HIGH ADDRESS (OLTTPUT) 

READ FUNCTION 
WRITE FUNCTION 
RECALIBRATE DRIVE 
I/O FINISHED M^^K 
CARRIAGE RETURN 
LINE FEED 



3E2D 0D0A0A 
3E30 3136 



SIGNaSi: ;SIGNON MESSAGE: XXK CP/M VERS Y.Y 
CR,LF,LF 
SAMPLE 
'16" ;16K EXAMPLE BIOS 



3E32 4B2043502F 
3E3E 312E34 
3E41 0D0A00 



DB 

IF 

DB 

EtroiF 

IF 

DB 

ENT/IF 

DB 

DB 

D3 



NOT SAIviPLE 
'00' ;MEMORY SIZE FILLED BY RELOCATOR 

'K CP/M VERS ' 

VSRS/10+'0'/.',VER3 ^DD 10+ '0' 
CR,LF,0 



BOOT: ;PRICT SIGNON MESSAGE AND GO TO CCP 

; (NOTE: MDS BOOT INITIALIZED lOBYTS AT 0003H) 



3E44 310001 


LKI 


SP.BUFF+^ 


50H 


3E47 212D3E 


LXI 


H,SIQ\ON 




3E4A CD4C3F 


CALL 


PRMSG 


•PRINT MESSAGE 


3E4D AF 


XRA 


A 


•CI, EAR ACCUMULATOR 


3E4E 320400 


STA 


CDISK ; 


•SET INITIALLY TO DISK 


3E51 C3A03E 


JMP 


GOCPM 


'GO TO CP/M 



WBOCDT:; LQADEP ON TRACK 0, SECTOR 1, VvHICH WILL BE SKIPPED FOR WARM 

READ CP/M FROM DISK - ASSUMING THERE IS A 128 BYTE (DLD STAJRT 
START. 



3E54 318000 



LXI 



SP.BUFF ;USING DMA - THUS 80 THRU FF AVAILABLE FOR STACK 



3E57 0E0A 
3E59 C5 



MVI C, RETRY ;MAX RETRIES 
PUSH B 



C-3 



3E5A 


010029 


3E5D 


CD343F 


3E60 


0E00 


3E62 


CD0C3F 


3E65 


0E00 


3E67 


CD2A3F 


3E6A 


0E02 


3E6C 


CD2F3F 


3E6F 


CI 


3E70 


062A 


3E72 


C5 


3E73 


CD3A3F 


3E76 


C2DA3E 


3E79 


2AE53F 


3E7C 


118000 


3E7F 


19 


3E80 


44 


3E81 


4D 


3E82 


CD343F 


3E85 


3AE43F 


3E88 


FEIA 


3E8A 


I:A963E 


3E8D 


3AE33F 


3E90 


3C 


3E91 


4F 


3E92 


CD2A3F 


3E95 


AF 


3E96 


3C 


3E97 


4F 


3E98 


CD2F3F 


3E98 


CI 


3E9C 


05 


3E9D 


C2723E 



^80010: ;EMTEK HERE ON ERROR RETRIES 

LXI B,CPM3 ;SET DMA ADDRESS TO START OF DISK SYSTEM 

CALL SETEMA 

MVI C,0 ;ECGT FROM DRIVE 

CAiL SELDSK 

lWI C,0 

CALL SETTRK ; START WITH TRACK 

MVI C,2 ; START READING SECTOR 2 

CALL SETSEC 
• 

; READ SECTORS, GOLTTT NSECTS TO ZERO 

POP B ;10-ERROR COUNT 

MVI B, NSECTS 
RDSEC: ;PEAX) NEXT SECTOR 



PUSH 

CALL 

JNZ 

LHLD 

LXI 

DAD 

M3V 

MOV 

CALL 

LDA 

CPI 

JC 



B 

READ 

BOCTERR 

lOD 

D,128 

D 

B,H 

C,L 

SETDI^ 

lOS 

26 

RDl 



;SAVE SECTOR OOU-NT 

; RETRY IF ERRORS OCCUR 

; INCREMENT DMA ADDRESS 

; SECTOR SIZE 

; INCREMENTED DMA ADDRESS IN HL 

; READY FOR CALL TO SET DMA 

; SECTOR NUMBER JUST READ 
;READ LAST SECTOR? 



MUST BE SECTOR 26, ZERO AND GO TO NEXT TRACK 



RDl 



LEA 

INR 

^DV 

CALL 

XRA 

INR 

MOV 

CALL 

POP 

DCR 

JNZ 



lOT 

A 

C,A 

SETTRK 

A 

A 

C,A 

SETSEC 

B 

B 

RDSEC 



;GET TRACK TO REGISTER A 

; READY FOR CALL 

; CLEAR SECTOR NUMBER 
;T0 NEXT SECTOR 
; READY FOR CALL 

; RECALL SECTOR OOUTOT 
;DONE? 



3EA0 


F3 


3EAI 


3E12 


3EA3 


D3FD 


3EA5 


AF 


3EA6 


D3FC 


3EA8 


3E7E 


3EAA 


D3FC 


3EAC 


AF 



DO^E WITH THE LOAD, P£SET DEFAULT BUFFER ADDRESS 
GOCPM: ? (ENTER HERE FPOM COLD START BOOT) 
; ENABLE RST0 AND RST7 

DI 

; INITIALIZE COMMAND 



; CLEARED 

;RST0 AND RST7 BITS ON 



MVI 


A,12H 


OUT 


REVRT 


XRA 


A 


OOT 


lOTC 


MVI 


A,INTE 


OUT 


INTO 


XRA 


A 



C-4 



3EAD D3F3 



our 



ICON 



; INTERRUPT CONTROL 



SET DEFAULT BUFFER ADDRESS TO 80H 



3EAF 


018000 




LXI 


B.BUFF 


3E32 


CD343F 




CALL 


SETDMA 






/ 


RESET 


MONITOR ENTRY POINTS 


3EB5 


3EC3 




MVI 


A, JMP 


3EB7 


320000 




STA 





3EBA 


21033E 




IXl 


H/W300TE 


3EBD 


220100 




SKLD 


1 ;JMP WBOOI AT LOCATION 00 


3EC0 


320500 




STA 


5 


3EC3 


210631 




LXI 


H^BDOS 


3EC6 


220600 




SHT.n 


6 ;Jj^lP BDOS AT LOCATION 5 


3EC9 


32380B 




STA 


7*8 ;JMP TO MDN80 (ivlAY HAVE BEEN CHANGED BY DDT) 


3ECC 


2100F8 




LXI 


H,^DN80 


3ECF 


223900 




SHT.n 


7*8+1 






• 
/ 


T.FAVE 


lOBYTE SET 






• 
/ 


PREVIOUSLY SELECTED DISK WAS 3, SEND PARAiViETER TO CPM 


3ED2 


3A0400 




LEA 


CDISK ;LAST LOGGED DISK InHJMBER 


3ED5 


4F 




MOV 


C,A ;SE^5D TO CCP TO LOG IT I^"J 


3EDd 


FB 




EI 




3ED7 


C30029 




JT^xP 


CPMB 






1 


EPi^OR 


OOITOITION OCCURRED, PRINT ICSSAGE AMD RETRY 






300TERR 


• 




3EDA 


CI 




POP 


B ;RECAr.Tr COUNTS 


3EDB 


0D 




DCR 


C 


3EDC 


CAE33E 




JZ 


BOOTER0 






• 


TRY AGAIN 


3EDF 


C5 




PUSH 


B 


3EE0 


C35A3E 




JMP 


WBOOT0 



3EE3 
3EE6 
3EE9 



21EC3E 
CD4C3F 
C30FFF 



BOOTER0 



OTHEK^N^ISE TOO W^Y RETRIES 

LXI K^BOOraSG 

CALL PRMSG 

JMP RI4ON80 ;MDS HARDWARE >DNITOR 



EOOIMSG: 



3EEC 3F424F4F54 



DB 



■?BOOT',0 



3EF2 C312F8 



CONST: . ;C3NS0LE STATUS TO REG-A 
; (EXACTLY THE SAME AS MES CALL) 
JMP CSTS 



OONIN: ;00NS0LE CHARACTER TO RBG-A 
3EF5 CD03F8 CALL CI 

3EF8 E67F AN I 7FK : REMOVE PARITY BIT 



C-5 



3EFA C9 



RET 



3EFB C309F8 



3EFE C30FF8 



3F01 C30CF8 



3F04 C306F8 



3F07 0E00 
3F09 C32A3F 



ODNOUT: ; CONSOLE CHABACTER FRQM C TO CONSOLE OOT 
JMP 00 

LIST: ;LIST DEVICE OUT 

(EXACTLY THE SA^^IE AS MCS CALL) 
JMP LO 

PUNCH: ; PUNCH DEVICE OUT 

{EXACTLY THE SAME AS MES CALL) 
JMP FO 

READER: ; READER CHARACTER IN TO RBG-A 
(EXACTLY THE SAME AS MEG CALL) 
JMP RI 

HOME: ;MOVE TO HOME POSITION 
TREAT AS TRACK 00 SEEK 
r4VI C,0 

JMP SETTPJC 



3F0C 79 

3F0D FE04 
3F0F D40FFF 



SELDSK: ; SELECT DISK GIVEN BY REGISTER C 

? CP/M HAS CHECKED FOR DISK SELECT 0-3. BUT VIE MAY HAVE 

A SMALLER MDS SYSTEM, SO CHECK AGAIN AND GIVE ERROR 

BY CALLING MON80 

MOV A,C 

CPI NDISKS ;T00 LARGE? 

CNC RMON80 ;GIVES #ADDR i^ESSAGE AT CONSOLS 



3F12 E602 
3F14 32DF3F 
3F17 79 
3F18 E601 

3F1A B7 
3F1B CA203F 
3F1E 3E30 

3F20 4F 
3F21 21E13F 
3F24 7E 
3F25 E6CF 
3F27 Bl 
3F28 77 
3F29 C9 



SETDRIVE 



ANI 

STA 

fCV 

ANI 

ORA 

JZ 

f4VI 

MOV 
LXI 
^DV 
ANI 
ORA 
i^DV 
RET 



10B 

DBANK 

A,C 

IB 

A 

SE:rDRr7E 

A,00110000B 



;00 00 FOR DRIVE 0,1 AND 10 10 FOR DRIVE 2,3 

;T0 SELECT DRIVE BANK 

;00, 01, 10, 11 

;MDS HAS 0,1 AT 78, 2,3 AT 88 

; RESULT 00? 



; SELECTS DRIVE 1 H^ BANK 



;SAVE THE FUNCTION 
;I0 FUNCTION 



C,A 

H,IOF 

A,M 

11001111B ;MA^K OOT DISK NUMBER 

C ;MASK IN NEW DISK NUMBER 

M,A ;SAVE IT IN lOPB 



SETTRK: ;SET TRACK ADDRESS GIVEN BY C 
3F2A 21E33F IXl H,IOT 

3F2D 71 lVDV M,C 



C-6 



3F2E C9 



RET 



SETSEC: ;SET SECTOR NIJMBER GIVEN BY C 

3F2F 79 ^DV A,C ; SECTOR l^^BER TO ACCUM 

3F30 32E43F STA lOS ; STORE SECTOR NUiVIBER TO lOPB 

3F33 C9 RET 

SETDMA: ;SET E^^ ADDRESS GIVEN BY REGS B,C 

3F34 69 KN L,C 

3F35 60 KN H,3 

3F36 22E53F SHLD lOD 

3F39 C9 RET 

READ: ;READ NEXT DISK RECORD (ASSUMING DISK/TRK/SEC/DMA SET) 

3F3A 0E04 MVI C.READF ;SEr TO READ- FUNCTION 

3F3C CD593F CALL SETFUNC 

3F3F CD693F CALL ^^ITIO ? PERFORM READ FUNCTION 

3F42 C9 RET ?MAY HAVE ERROR SET' IN RBG-A 



3F43 0E06 
3F45 CD593F 
3F48 CD693F 
3F4B C9 



3F4C 7E 
3F4D B7 
3F4E C8 

3F4F E5 
3F50 4F 
3F51 CDFB3E 
3F54 El 
3F55 23 
3F56 C34C3F 



WRITE; ;DISK WRITE FUNCTION 
^Wl CV^ITF 

CALL SETFLT^C ;SET TO WRITE FUNCTION 
O^L WAITIO 
RET ?MAY UKJE ERROR SET 



UTILITY SU3R0LT?mES 
PRT^ISG: ; PRINT r^ESSAGE AT H,L TO 



M3V A,M 

ORA A 

RZ 

NDRE TO PRINT 

PUSH 



;ZERO? 



MDV 

CALL 

POP 

INX 

JMP 



H 
C,A 

CONOOT 
H 
H 
PRMSG 



SETFUNC : 



3F59 21E13F 
3F5C 7E 
3F5D E6F8 
3F5F Bl 
3F60 77 



3F61 S620 



SET FU'NCTIC^^ FOR NEXT I/O (COMMAND H^i REG-C) 



LXI 

mv 

ANI 

ORA 

KOV 

THE ^!DS- 

r^lASK THE BIT FTOM THE OfRRENT I/O FUNCTION 

ANI 00100000B ;NL2\SK THE DISK SELECT' BIT 



K.IOF ;I0 FU-NCTION ADDRESS 

A,M ;GET-IT TO ACCUMULATOR FOR MASKING 

11111000B ; REMOVE PREVIOUS OOMi^^AND 

C ;SET TO NEW COMMAND 

M,A ; REPLACED IN lOPB 

CONTROLLER REQUIRES DISK aWK BIT IN SECTOR BYTE 



C-7 



3F63 21E43F 
3F66 36 
3F67 77 
3F68 C9 



LXI 

OPA 

RET 



H.IOS 



ADDRESS THE SECTOR SELECT BYTE 
SELECT PROPER DISK BANK 
SET DISK SELECT BIT ON/OFF 



3F69 0E0A 



3F63 CDB83F 
3F6E aX:53F 



3F71 
3F74 
3F75 
3F77 
3F79 
3F7C 
3F7E 
3F7F 
3F81 



3ADF3F 

87 

3EE0 

063F 

C2843F 

D379 

78 

D37A 

C3893F 



3F84 D389 
3F86 78 
3F87 D38A 

3F89 CDD23F 
3F8C E604 
3F8E CA893F 



WAITIO; 

REWAIT; 



lODRl 



WAIT0: 



MVI 



C, RETRY ;MAX RETPJES BEFORE PERM ERROR 



START THE I/O FUNCTION AND WAIT FOR COMPLETION 

CALL INTYPE ;IN RTYFE 

CALL INBYTE ; CLEARS THE CONTROLLER 



LIA 
ORA 
MVI 
MVI 
JNZ 
OUT 

^DV 
our 

JMP 



DBANK ;SET BANK FLAGS 

A ;ZERO IF DRIVE 0,1 AND NZ IF 2,3 

A,IOPB AND 0FFH ;LaV ADDRESS FOR lOPB 

B,IOPB SHR 8 ;HIGH ADDRESS FOR lOPB 

lODRl ;DRIVE BANK 1? 

ILOW ;LCW ADDRESS TO OONTROLLER 

A,B 

IHIGH 

WAIT0 



;HIGH ADDRESS 

;T0 WAIT FOR COMPLETE 



;DRIVE BANK 1 

OUT ILCW+10H 

iVDV A,B 

OUT IHIGH+10H 

CALL INSTAT 

AN I lORDY 

JZ WAIT0 



;88 FOR DRIVE BANK 10 



;WAIT FOR COMPLETION 
; READY? 



3F91 CDB83F 



3F94 FE02 
3F96 CAAB3F 



CHECK 10 COMPLETION CK 

CALL INTYPE ;MUST BE 10 COMPLETE (00) UNLINKED 

00 UNLINKED I/O COMPLETE, 01 LINKED I/O COMPLETE (NOT USED) 

10 DISK STATUS CHANGED 11 (NOT USED) 

CPI 10B ; READY STATUS CHANGE? 

JZ WREADY 



3F99 B7 
3F9A C2B13F 



3F9D CDC53F 
3FA0 17 
3FA1 E:AAB3F 
3FA4 IF 
3FA5 E6FE 
3FA7 C2B13F 



MUST BE 00 IN THE ACCUMULATOR 

ORA A 

JNZ WERPOR ;SCM; OTHER CONDITION, RETRY 



CHECK I/O ERROR BITS 

CALL IKBYTE 

RAL 

JC WREADY 

RAR 

ANI 11111110B 

JNZ WERRDR 



;UNIT NOT READY 

;ANY OTHER ERRORS? (DELETED CATA CK) 



C-8 



3FAA 09 



READ OR WRITE IS OK, ACCUMUIATOR OONTAINS ZERO 
RET 



3 FAB CDC53F 
3FA^ C3B13F 



WREADY: ;NCT READY, TREAT AS ERROR FOR NOv^^ 

CALL INBYTE ; CLEAR RESULT BYTE 

JMP TRYQOUNT 



WERROR: 



; RETURN HARD^aIARE MALFUInICTION (CRC, TRACK, SEEK, ETC.) 
THE MDS 00NT:R0LLER HAS RETURNED A BIT IN EACH POSITION 
OF THE ACCUMUIATOR, OORRESPONBING TO THE CONDITIONS: 



DELETED DATA (ACCEPTED AS OK ABOVE) 

CRC ERROR 

SEEK ERROR 

ADDRESS ERROR (HARDWARE MALFUNCTION) 

DATA OVER/UNTDSR FLOW (HARDWARE MALFUNCTTON) 

WRITE PROTECT (TREATED AS NOT READY) 

WRITE ERROR (HARDWARE [MALFUNCTION) 

NOT READY 



3 FBI i3D 
3FE2 C26B3F 



(ACCUMUIATOR BITS ARE NU>1BERED 76543210) 

IT MAY BE USEFUL TO FILTER OL^ THE VARIOUS CONDITIONS, 
BL^' VS WILL GET A PERMANENT ERROR MESSAjGE IF IT IS NOT 
RECOVERABLE. IN ANY CASE, THE NOT READY CONDITION IS 
TREATED AS A SEPARATE CONDITION FOR LATER IMPROVEMENT 
TRY00U1\^: 

REGISTER C OONTAINS RETRY GOUN-T, DECREMENT 'TIL ZERO 

DCR C 

jNZ REWAIT ;F0R ANOTHER TRY 



3FB5 3E01 
3FB7 C9 



CANNOT RECOVER FRO^i ERROR 
MVI A,l ; ERROR CODE 
RET' 



3F38 3ADF3F 
3FBB B7 
3FEC C2C23F 
3FBF DB79 
3FC1 C9 
3FC2 DB89 
3FC4 C9 



; INTYPE, INBYTE, INSTAT READ DRIVE BAMK 00 OR 10 

INTYPE: LEA DBANK 

A 

INTYPl ;SKIP TO BANK 10 

RTYPE 



ORA 
•JNZ 
IN 
RET 
n>ITYPl: IN 
REl^ 



RTYPE+10H 



;78 FOR 0,1 88 FOR 2,3 



3FC5 3ADF3F 
3FC8 B7 
3FC9 C2CF3F 
3FCC DB7B 
3FCE C9 
3FCF IB BE 
3FD1 C9 



INBYTE: LEA 
ORA 
JNZ 
IN 
RET 

INBYTl: IN 
RET 



DBANK 
A 

IN"BYT1 
RBYTE 

REYTE+10H 



C-9 



3FD2 3ADF3F 


INSTAT: 


LEA 


DBANK 


3FD5 B7 




ORA 


A 


3FD6 C2DC3F 




ONZ 


INSTAl 


3FD9 DB78 




IN 


CSTAT 


3FDB C9 




"BEI 




3FDC DB88 


INSTAl : 


IN 


CSTAT+10H 


3FDE C9 




RET 





DATA AREAS (MUST BE IN RAM) 



3FDF 00 


DBANK: DB 







lOPB: ;I0 


PARAMETER 


3FE0 80 




DB 


80H 


3FE1 04 


lOF 


: DB 


READF 


3FE2 01 


lO^; 


; DB 


1 


3FE3 02 


lOT 


: DB 


OFFSET 


3FE4 01 


lOS. 


: DB 


1 


3FE5 8000 


lOD: 


DW 


BUFF 



;DISK BANK 00 IF DRIVE 0,1 
; 10 IF DRIVE 2,3 
OCK 

NORMAL I/O OPERATION 

10 FUNCTION, INITIAL READ 

NL^MBER OF SECTORS TO READ 

TRACK NUr4BER 

SECTOR NL^MBER 

10 ADDRESS 



3FE7 



END 



C-10 



APPENDIX D: A SKELETAL CBIOS 



0010 = 
3E00 = 



0040 = 

0040 = 

0041 = 

0042 = 
0044 = 



MSIZE 
PATCH 



SCBAT 

TRACK 

SECTOR 

DKiAAD 

DISKNO 



SKELETAL CBIOS FOR FIRST LEVEL OF CP/M ALTERATION 

NOTE : MSIZE DETERMINES WHERE THIS CBIOS IS LOCATED 
EQU 16 ;CP/M VERSION MEMORY SIZE IN KILOBYTES 

EQU MSIZE*1024-2*256 ;START OF THE CBIOS PATCH 

^\TE WILL USE THE AREA RESERVED STARTING AT LOCATION 

40H IN PAGE FOR HOLDING THE VALUES OF: 
TRACK = LAST SELECTED TRACK 
SECTOR = LAST SELECTED SECTOR 
DMAAD = LAST SELECTED UAA ADEKESS 
DISKNO = LAST SELECTED DISK NUMBER 

(NOTE THAT ALL ARE BYTE VALUES EXCEPT FOR DMAAD) 



EQU 
EQU 
EQU 
EQU 
EOU 



40H 
SCRAT 
SCRAT+1 
SCRAT+2 



rBASE CF SCRATCH AREA (FROM 40H TO 4FH) 
; CURRENTLY SELECTED TRACK 
; CURRENTLY SELECTED SECTOR 
; CURRENT D^^IA ADIBSSS 



SCRAT+4 ; CURRENT DISK NUMBER 



3E00 
0000 
2900 
3106 

1500 
002 A 



CBASE 

CPMB 

BDOS 

CPML 

NSECTS 



ORG 

EOU 
EQU 
EQU 
EQU 
EQU 



PATCH ;ORGIN OF THIS PROGRAM 



(MSIZE-16)*1024 
CBASE+2900H 
CBASE+3106H 
$-CPMB 
CPML/128 



BIAS FOR SYSTEMS LARGER THAN 16K 
BASE OF CP/M (= BASE OF CCP) 
BASE OF RESIEENT PDRTION OF CP/M 
LENGTH OF THE CP/M SYSTELM m BYTES 
NUMBER OF SECTORS TO IHkD ON V;AK-'i START 



3E00 C32D3E 



JUr^tP VECTOR FOR INDIVIDUAL SUBROUTINES 
JMP BOOT ;aOLD START 



3E03 
3E06 
3E09 
3E0C 
3E0F 
3E12 
3E15 
3E18 
3E1B 
3E1E 
3E21 
3E24 
3E27 
3EZA 



C3303E 
C3993S 
C3AC3E 
C3BF3E 
C3D13E 
C3D33E 
C3D53E 
C3DA3E 
C3E03E 
C3F53E 
C30A3F 
C31F3F 
C3353F 
C34S3F 



WB30TE: 



MP 


WBOOT 


JMP 


CONST 


JMP 


CONIN 


JMP 


OONOLT 


JI^IP 


LIST 


JMP 


PUNCH 


JMP 


READER 


JMP 


HCME 


JMP 


SELDSK 


Ji^l? 


SL'iTRK 


JMP 


SETSEC 


JMP 


SETDMA 


JMP 


READ 


JMP 


^^ITE 



WARM SIART 

CONSOLE STATUS 

OONSCLE CHARACTER IN 

CONSOLE CHARACTER OUT 

LIST CHARACTER OUT 

PWCU CHARACTER OUT 

READER OiAi^CTER OUT 

MOVE HEAD TO HOME POSITION 

SELECT DISK 

SET TRACK NUr4BER 

SET SECTOR NUMBER 

SET DMA ADEHESS 

READ DISK 

WRITE DISK 



I>1 



3E2D C3793E 



IiroiVIDCM. SUBPQOTINES TO FERPORI^l EACH FUNCTION 
BOOT: ; SIMPLEST CASE IS TO JUST PERFORM PARAMETER INITIALIZATION 
JMP GOCPM ;INITIALIZE AND QD TO CP/M 



WaOCT: ; SIMPLEST CASE IS TO P^AD THE DISK UNTIL ALL SECTORS LOADED 

3E30 318000 LXI SP.80H -USE SPACE BELOw BUFFER FOR STACK 

3E33 0E00 MVI C,0 ;SELECT DISK 

3E35 CDE03E CALL SELDSK 

3E38 CDDA3E CALL HCME ;G0 TO TRACK 00 



3E3B 06ZA 
3E3D 0E00 
3E3F 1602 



3E41 210029 

3E44 C5 
3E45 D5 
3E46 E5 
3S47 4A 
3E^8 CD0A3F 
3E4E> CI 
3E4C C5 
3E4D CD1F3F 



MVI E,NSECrS ?B CDLTOTS THE NO"MBER CF SECTORS TO LCM) 
M\7I C,0 ?C HAS THE OJRKENT TRACK NUMBER 

MVI D,2 ;D HAS THE NEXT SECTOR TO READ 

NOTE THAT WE BEGIN BY READING TRACK 0, SECTOR 2 SINCE SECTOR 1 
; CONTAINS THE GOLD START LOADER, WHICH IS SKIPPED IN A WARM START 

LXI H.CPMB ;BASE OF CP/M (INITIAL LCAD POINT) 

LQADl: ;LOAD ONE MDRE SECTOR 

SAVE SECTOR COUNT, CURRENT TRACK 
SAVE NEXT SECTOR TO READ 
SAVE DMA ADmESS 

GET SECTOR ADDRESS TO REGISTER C 
SET SECTOR ADEHESS FROM REGISTER C 
RECALL DMA ADDRESS TO B,C 
REPLACE ON STACK FOR LATER RECALL 
SET mh ADDRESS FROM B,C 



PUSH 


B 


PUSH 


D 


PUSH 


H 


^r)v 


CD 


CALL 


ShTSEC 


POP 


B 


PGBH 


B 


CALL 


SETDMA 



3E50 CD353P 
3E53 FE00 
3E55 C2303E 



DRIVE SET TO 0, TRACK SET, SECTOR SET, DMA ADDRESS SET 

CALL READ 

CPI 00H ;ANY ERRORS? 

JNZ WBOOT ; RETRY THE ENTIRE BOOT IF AN ERROR OCCURS 



NO ERROR, ^DVE TO NEXT SECTOR 



3E58 El 
3E59 118000 
3E5C 19 
3E5D Dl 
3E5E CI 
3E5F 05 
3E60 CA793E 



POP 


H 


LXI 


D,128 


DAD 


D 


POP 


D 


FOP 


B 


DCR 


B 


JZ 


GOCPM 



RECALL DMA ADDRESS 

DMA=DMA+128 

NEW DMA ADDRESS IS IN H,L 

RECALL SECTOR ADDRESS 

RECALL NUMBER OF SECTOP^ REMAINING, MD CURRENT TRK 

SECrORS=SECTORS-l 

TRANSFER TO CP/M IF ALL HAVE BEEN LC:M)SD 



3E63 14 
3E64 7A 
3E65 FEIB 
3E67 DA443E 



MDRE SECTORS P.EMAIN TO LOAD, CHECK FOR TRACK CHAIvIGE 

INR D 

MOV A,D ;SECTOR=27?, IF SO, CHANffi TRACKS 

CPI 27 

JC LOADl ; CARRY GENERA.TED IF SECTOR<27 



3E6A 1601 
3E6C 0C 



END OF CURRENT TRACK, GO TO NEXT TRACK 

i>Wl D,l ;BEGIN WTTH FIRST SECTOP CF NEXT TRACK 

INR C ;TRACK=TRACK+1 



D-2 



t 


SAVE 


REGISTER 


STATE, AND CHANGE TRACKS 


3E6D C5 


PIBK 


B 




3E6E D5 


PCSH 


D 




3E6F E5 


PIjBH 


H 




3E70 CDF53E 


CALL 


SbTi'KK 


;TRACK ADDRESS SCT FROM REGISTiiR C 


3E73 El 


POP 


H 




3E74 Dl 


POP 


D 




3E75 CI 


POP 


B 




3E76 C3443E 


JMP 


LQADl 


;POR ANOTHER SECTOR 



GOCPM: 



3E79 3EC3 


MVI 


3E7B 320000 


STA 


3E7E 21033E 


LXI 


3E81 220100 


SHLD 


3E34 320500 


STA 


3E87 210631 


LXI 


3E8A 220600 


SHLD 


3E8D 018000 


LXI 


3E90 CD1F3F 


CALL 


3E93 F3 

* 


EI 

TTTTPTTI 


• 
/ 


rUiUl 
C UK 

TTT'TTT 


3E94 0E0G 


rbiUJ 
MVI 


3E96 C30029 


Jt^ 



3E99 

3EA9 3E00 
3EAB C9 



CONST: 



END OF LQ\D OPERATION, SET PARAMETERS AND GO TO CP/M 



A,0C3H ;C3 IS A JMP INSTRUCTION 

;FOR JMP TO WDOCT 
H.WBOCTE ;WBOOT ENTRY POINT 

1 ;SEr ADDRESS FIELD FOR JMP AT 

5 ;POR JMP TO BDOS 
K.BDOS ?3D0S ENTRY POINT 

6 ;ADDRESS FIELD OF JUMP AT 5 TO BDOS 

B,80H ;DEFAULT DMA ADDRESS IS 80H 
SETDMA 



;Em3LE THE INTERRUPT SYSTEM 
FUTURE VERSIONS OF CCP WILL SELECT THE DISK GIVEN BY REGISTER 
C UPON ENTRY, HENCE ZERO IT IN THIS VERSION OF THE BIOS FDR 
FUTURE COMPATIBILITY. 

C,0 ;SELECT DISK ZERO AFTER INITIALIZATION 

CPMB ;G0 'TO CP/M FOR FURTHER PROCESSING 



SIMPLE I/O RANDLERS (MUST BE FILLED IN BY USER) 

IN EACH CASE, THE ENTRY POINT IS PROVIffiD, WITH SPACE RESERVED 

TO INSERT YOUR OWN CODE 

; CONSOLE STATUS, RETURN.' 0FFK IF CHARACTER READY, 00H IF NOT 
DS 10H ; SPACE FOR STATUS SUBROUTINE 

VWl A,00H 

RET 



CONIN: ; CONSOLE CHARACTER INTO REGISTER A 

3EAC DS 10H ; SPACE FOR INPUT ROLTINE 

3E3C E67F ANI 7FH ;STRIP PARITY BIT 

3EBE C9 RET 



3E3F 79 
3EC0 
3ED0 C9 



CONOUT: rOONSOLE CHARACTER OUTPUT FRQM REGISTER C 
M)V A,C ;GET TO ACCUMULATOR 

CS 13H ; SPACE FOR OUTPUT Ra^INE 

RET 



EH3 



3ED1 79 
3ED2 C9 



LIST: ;LIST CHAKACTER FRDM REGISTER C 

MOV A.C ;GiARACTER TO REGISTER A 
RET ;NULL SUBROUIINE 



3ED3 79 
3ED4 C9 



PUNCH: ; PUNCH CHARACTER FKM REGISTER C 

MOV A,C ;CEiARACTER TO REGISTER A 

RET ?NULL SUBROUIINE 



3ED5 3E1A 
3ED7 E67F 
3ED9 C9 



3EDA 0S00 
3EDC CDF53E 
3EDF C9 



READER: ;READ CHARACTER INTO REGISTER A FIO! READER IX VICE 

ivTvT A,1AH ;EOTER END OF FILE FOR NCW (REPLACE LATER) 

ANI 7FH ; REMEMBER TO STRIP PARITY BIT 

RET 



I/O ES^IVERS FOR THE DISK FOLLOW 

FOR NOW, WE WILL SIMPLY STORE THE PARAMETERS AWAY FOR USE 

IN THE READ AND WRITE SUBROUTINES 

HOME: ;^DVE TO THE TRACK 00 POSITION OF CURREL\^ IZRIVE 

TRANSLATE THIS CALL INTO A SETTRK CALL WITH PARAMETER 00 

MVL C,0 ;SELECT TRACK 

CP^L SETTRK 

RET ;WE WILL MOVE TO 00 ON FIRST READAt^ITE 



3EE0 79 
3EE1 324400 
3ES4 
3EF4 C9 



SELDSK: ; SELECT DISK GIVEN BY REGISTER C 
MOV A,C 

STA DISKNC 

DS i0H ; SPACE FDR DISK SELECTION ROUTINE 

RET 



3EF5 79 
3EF6 324000 
3EF9 
3F09 C9 



SETTRI\: ;SET TRACK GIVEN BY REGISTER C 
MOV A,C 

ST?i. TRACK 

rS 10H ; SPACE FOR TRACK SELECT 

RET 



3F0A 79 
3F0B 324100 
3F0E 
3F1E C9 



SETSEC: ;SET SECTOR GIVEN BY REGISTER C 

^DV A,c 

STA SECTOR 

DS 10H ? SPACE FOR SECTOR SELECT 

RET 



3F1F 69 
3F20 60 
3F21 22420G 
3F24 
3F34 C9 



SETDMA: ;SET DC^A ADDRESS GI^v^EN BY REGISTERS B AND C 



MOV 

NDV 

SHLD 

DS 

RET 



L,C ?LC^7 ORDER ADCRESS 

H,B ?HIGH ORDER ADDRESS 

DE4AAD ;SAVE THE ADDRESS 

10H ; SPACE FOR SETTING THE DMA ADDRES: 



D-4 



3F35 

3F45 C3583F 



READ: ; PERFORM READ OPERATION (USUALLY THIS IS SIMILAR TO WRITE 
; SO WE WILL ALLOW SPACE TO SCI UP READ COMMAND, THEN USE 
; COMMON CODE IN WRITE) 

DS 10H ;SET UP READ GOMMAlsfD 

J!*IP WAITIO ;T0 PERFORM THE ACFJAL I/O 



3F48 



00A7 = 

3F58 3E01 
3F5A C9 
3F5B 



WRITE: ? PERFORM A WRITE OPERATION 

DS 10H ; SET UP WRITE COMMAND 

WAITIO: RENTER HERE FRDM READ AND WRITE TO EERPORM THE ACTUAL I/O 

OPERATION. RETURN A 00H IN REGISTER A IF THE OPERATION COMPLETES 
PROPERLY, ^^D 01H IF AN ERROR OCCURS DURING THE READ OR WT^ITE 

IN THIS CASE, WE HAVE SAVED THE DISK NUMBER IN 'DISKNO' (0,1) 

THE TRACK ND74EER IN 'TRACK' (0-76) 
THE SECTOR NUMBER IN 'SECTOR' (1-26) 
THE Df'lA ADIRESS IN 'DMAAJD' (0-65535) 

ALL REMAINING SPACE FROM $ THROUGH MSIZE*1 024-1 IS AVAILABLE: 
left: EOU (MSIZE*! 024-1)-$ ;SPACE REMAINING IN CBIOS 



MVI 
RET 
END 



A,l ; ERROR OONDITi™ 

; REPLACED WHEN FILLED-IN 



APPENDIX E: A SKELETAL GETSYS/PLTSYS PROGRAM 



0100 
001S 



0000 = 



nm 31S028 

0103 218028 
0106 0600 

010S 0E01 

010A CD0003 
010D 118000 

0110 19 

0111 0C 

0112 79 

0113 FSIB 
0115 DA0A01 



MSIZE 



BIAS 



GSTART: 

RDTRK: 

RDSEC: 



CXDMBINED GSTSYS AND POTSYS PR0GRAI4S FRDM SECTION 4 

START THE PROGRAMS AT THE BASE OF THE TRANSIENT PROGRAI^. AREA 

DIG . 100K 

EQU 16 ;SIZE OF MEMORY IN KHjOBYTES 

BIAS IS THE AMOUNT TO ADD TO ADDRESSES FOR SYSTEMS LARGER lEAN 16K 

(REFERRED TO AS 'B ' THROUGHOUT THE TEXT) 

EQU (r4SIZE-16)*1024 

GETSYS PROGRAM - READ TRACKS AND 1 TO MEMORY AT 2880H+BIAS 



REGISTER 
A 
B 
C 

D,E 
H,L 
SP 



USE 
(SCRATCH REGISTER) 
TRACK COUN^ (0,.,76) 
SECTOR COUNT (1...26) 
(SCRATCH REGISTER PAIR) 
LCAD ADDRESS 
SET TO S'mCK ADDRESS 



LXI SF.2880H+3IAS 

LXI K,2880H+BIAS 

MVI B,0 

MVI C,l 

CALL READSEC 

LXI D,128 

CAD D 

INR C 

MOV A,C 

CPI 27 

JC RDSEC 



START CF THE CETSYS PROGRAM 

SET STACK PDIbTI'ER TO SCRATCH AREA 

SET BASE LCAD ADDRESS 

START WITH TRACK 00 

READ FIRST (NEXT) TRACK 

READ STARTING V^ITH SECTOR 1 

READ NEXT SECTOR 

CHANGS LCAD ADDRESS TO NEXT 1/2 PAGE 

HI;=HL4-128 TO NEXT ADCRESS 

SECT0R=SECTCR+1 

CHECK FOR END OF TRACK 

CARRY C2NERATED IF C<27 



0118 04 

0119 78 
011A FE02 
011C DA0801 



ARRIVE HERE AT EIvTD OF TRACK, MOVE TO NEXT TRACK 



INR 
MOV 
CPI 
JC 



B 

A,B 

2 

RDTRK 



TR?.CK=TRACK+1 

CHECK FOR LAST TRACK 

TRACK=2? 

CARRY ffiNERATED IF TRACK < 2 



011F FB 
0120 76 



G200 



ARRIVE HERE AT END OF LOAD, HALT FOR NOW 

EI 

HLT 

PUTSYS PROGRAM - PLACE MEMORY STARTING AT 2880H+BIAS BACK TO TRACKS 
AND 1. START THIS PROGRAM ON THE NT:XT PAGE 
ORG {$+100H) AND 0FF00H 



E-1 



0200 318028 
0203 218023 
0206 0600 

0208 0E01 

020A CDB003 
020D 118000 

0210 19 

0211 0C 

0212 79 

0213 FEIB 
C215 D?^0A02 



PS TART: 
vJRSEC: 



RH^ISTER 
A 
B 
C 
D,E 

SP 



MVI 

CALL 

LXI 

EAD 

INR 

yOM 

CPI 

JC 



; START CF THE 
SP,2880K+BIAS 
H,2880H+BLAS 

CI 

V^JRITESEC 

D,128 

D 

C 

A,C 

27 

WRSEC 



USE 

(SCRATCH REGISTER) 
TRACK ODUNT (0,1) 
SECTOR COUNT (1...26) 

(SCPvATCH REGISTER PAIR) 

DUMP ADDRESS 

SET TO STACK ADEKESS 

PUTSYS PROGRAM 

SET STACK POINTER TO SCRATCH AREA 

SET BASE DUMP ADDRESS 

START WITH TRACK 
f WRITE FIRST (NEXT) TRACK 

START WRITING AT SECTOR 1 
:W1^ITE FIRST (NEXT) SECTOR 

PERFORM THE WRITE 

'MOVE DUI^iP ADDRESS TO NES 1/2 PAGE 
■HLfHL+128 

SECTOR=3ECrOR+l 

CHECK FOR END OF TRACK 

SECTOR=27? 

CARRY GENERATED IF SECTOR < 27 



0218 04 

0219 78 
02LA FE02 
0210 DA0802 



ARRIVE HERE AT EI© OF TRACK, MOVE TO lMEXT TRACK 



INR B 

MOV A,B 

CPI 2 

JC WRTRK 



TRACK^RACK+1 

TEST FOR LAST TRACK 

TRACK=2? 

CARRY GENERATED IF TRACK < 2 



021F FB 
0220 76 



0300 



ARPJVE HERE AT END OF DUMP, HALT FDR NQ^ 

EI 

HUT 



USER-SUPPLIED SUBROUTINES FOR SECTOR READ AND SECTOR vvRITE 

MOVE TO NEXT PAGE FOR READSEC A^nID U^JTESEC 
ORG ($+100H) AND 0FF00H 



0300 C5 

0301 E5 

0302 El 

0303 CI 

0304 C9 



READSEC: ?READ THE" NEXT SECTOR 

TRACK TO READ IS IN REGISTER B 
SECTOR TO REM IS IN REGISTER C 
BRANCH TO LABEL GSTART' IF ERROR OCCURS 
RRAD 128 BYTES CF EATA TO ADDRESS GIVE^ BY H,L 
PGBH B 

P15K H 

** PEACE RFIAD OPERATION HERE ** 
POP H 

POP 3 

RET 



E-2 



0380 



0330 C5 

0381 E5 

0382 El 

0383 CI 

0384 C9 



; !^VE TO NEXT 1/2 PAGE FDR WRITE3EC SUBRDOTIT>3E 

OFG ($ AND 0FF00H) + 80H 

WRITESEC: ;WRITE THE NEXT SECTOR 

TRACK TO WRITE IS IN REGISTER B 

SECTOR TO ^RITE IS IN R33ISTER C 

BRANCH TO LABEL PSTARJ- IF EPKDR OCCURS 

WRITE 128 BYTES CF DATA FKM ADDRESS GIVEN BY H,L 

PUSH B 

PUSH H 

** PLACE WRITE OPERATION HERE ** 

POP H 

POP B 

RET 



0385 



END OF (ETSYS/PUTSYS PROGRAM 
END 



E-3 



APPENDIX F: A SKELETAL CD LB START LOADER 



0000 

0010 

2900 
3E00 
3E00 
1700 
002E 



MSIZE 

BIAS 

LQADP 

BIOS 

BOOT 

SIZE 

SECTS 



THIS IS A SAI^IPLE ODLD START imDER WHICH, WHEN ^DDIFIED, RESIDES 
ON TRACK m, SECTOR 01 (THE FIRST SECTOR ON THE DISKETTE). v^?E 
ASSUME THAT THE OOrTO^OLLER HAS LCADED THIS SECTOR INTO MEMORY 
UPON SYSTEM STARTUP (THIS PROGRAM C^' BE KEYEEHIN , OR EXIST IN 
A PAGE OF R£AD-ONLY MEMORY BEYOND THE ADDRESS SPACE CF THE CP/M 
VERSION rou ARE RUNNING) . THE GOLD SIART LOADER BRINGS THE CP/M 
SYSTEM IT^TO MEMORY AT 'LQADP' {NOMINALLY 2900H) + 'BIAS' V^ERE 
THE BIAS VALUE ACCOUNTS FOR MEMORY SYSTEMS lARGER THAN 16K, ^2^D 
CP/M VEP^SIOL^TS WHICH HANDLE THE lAR^ER MEMORY SPACE, IN A 16K 
SYSTEM, THE VALL^E OF BIAS IS 0000H. AFTER LjCM)ING THE CP/M SYS- 
TM, THE COLD START LC^DER BRANCHES TO THE 'BOOT' ENTRY POINT OF 
THE BIOS, WHICH BEGINS AT 'BIOS' + 'BIAS'. THE GOLD START LOADER 
IS NOT USED AGAIN UNTIL THE SYSTEM IS FO^VERED UP AGAIN, AS LOK^G 
AS THE BIOS IS NOT' OVERWRITTEN. 

THE ORGIN IS 0, ASSUMING] THE CONTROLLER LCADS THE GOLD S'mRT 
PROGRAM AT THE BASE OF MEMORY. THIS ORIGIN MUST BE IN HIGH 
MEMORY (BEYOND THE ENT) OF THE BIOS) IF THE COLD START LC^^ER 
IS IMPLE^MENT'ED IN READ-ONLY-MEMORY. 



ORG 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



0000H ;BASE CF MEMORY 

16 ;MEMORY SIZE IN KILOBYTES 

(MSI2E-16)n024 ;BIAS TO ADD TO D::AD ADERESSES 



2900H 

3E00H 

BIOS 

3IOS+512-LOADP 

SIZE/128 



LOAD POINT FOR CP/M SYSTEi"^! 

BASIC I/O SYSTEM (2 PAGES = 512 BYTES) 

COLD START ENTRY POINT IN BIOS 

;SI2E OF THE CP/M SYSTEM TO LOAD 
;NUrviBER OF SECTORS TO LC^D 



BEGIN THE LOAD OPERATION 
0000 010200 COLD: LXI B,2 ;CLEAR B TO 0, SET C TO SECTOR 2 

0003 162E ,MVI D, SECTS ;NUr^.BER OF SECTORS TO LCAD IS IN D 

0005 210029 LXI H,LQADP-«IAS ;LCAD POINT IN H,L 



0008 C36B00 
003B 



LSECT: ;LOAD NEXT SECTOR 

INSERT INTjINE OOIE AT THIS POn^IT TO READ ONE 128 BYTE SECTOR 
FRCM TRACK GIVEN BY REGISTER B, 
SECTOR GIVEN BY REGISTER C, 
INTO ADDRESS GIVEN BY REGISTER PAIR K,L 
BRANCH TO LOCATION 'COLD' IF A READ ERROR OCCURS 

USER SUPPLIED RRAD OPERATION GOES HERE 

(SPACE IS RESERVED FOR YOUR PATCH) 

JMP PASTPA'TCH ;RR^iO\^ THIS JUMP WHEI\^ PATCHED 

DS 50H 



F-1 



PASTPATCH: 

; GO TO NEXT SECTOR IF LOAD IS INCOMPLETE 

006B 15 DCR D ?SECTS=SEOTS-1 

006C CA003E JZ DOOT+BIAS 7GO TO BOOT LOADER AT 3E00H+BIAS 

h'DBE SECTORS TO LOAD 

USE SP FOR SCRATCH REGISTER TO HOLD LC^D ADDRESS INCREMENT 
005F 318000 LXI SP,128 

0072 39 E^D SP ;HL=HL+128 TO NEXT LCM) ADDRESS 

0073 0C ' INR C ;SECT0R=SECT0R+1 

0074 79 MOV A,C ;MOVE SECTOR OOLW? TO A FOR COMPARE 

0075 FEIB CPI 27 ;END OF OJRRENT TRACK? 
0077 CA0800 JC LSECT ; CARRY GENERATED IF SECTOR < 27 



007A 0E01 
007C 04 
007D C30800 



0080 END 



INR 


C 


MOV 


A,C 


CPI 


27 


JC 


LSECT 


END OF 


TRACK, 


MVI 


C,l 


INR 


B 


JMP 


LSECT 



SECT0R=1 

TRACK=TRACK+1 

FOR ANOTHER SECTOR 



P-0 



